ايران ويج

صفحه‌ها: 1 2 3

(۱۵-مرداد-۱۳۸۸, ۱۴:۳۶:۲۲)MT888 نوشته است: [ -> ]جناب Darg ازلطفتون تشکر میکنم ولی با این کدها جواب نداد.لطفا نگاهی به پروژه زیر بندازید در سلول (9و7) تغییررنگ فقط در لبه چپ صورت میگیرد.باز هم تشکر میکنم از پاسخ سریع و سودمندتون

کد: 
mworksheet.Cells(7, 9).Borders(xlEdgeRight).LineStyle = xlContinuous

سلام
ممنون بابت اطلاعات مفیدی که به بچه ها می دین
من هم یه سوال داشتم
تو تمام این دستورات ویژوال یک اکسل جدید می سازه و ما با اون کار می کنیم
حالا سوال من اینه که اگه ماقبلا یه اکسل داشته باشم و تغیرات دلخواه از قبیل فونت و رنگ و اندازه رو هم به اون داده باشیم یعنی یه دیفالت و حالا بخوایم تو یه سری از سلولهای مورد نظر اون اطلاعاتی رو وارد کنیم از چه دستوری باید استفاده کرد.
ممنون میشم اگه کسی میدونه جواب بده

با سلام .

کد: 
Dim myExcel As New Excel.Application

Dim myExcelbook As New Excel.Workbook

Dim myExcelsheet As New Excel.Worksheet

Private Sub Command1_Click()

    Set myExcelbook = myExcel.Workbooks.Open(App.Path & "\Book1.xlsx")

    Set myExcelsheet = myExcelbook.Sheets(1)

'00000000000

    myExcel.ActiveWorkbook.Save

    myExcel.ActiveWorkbook.Close False, App.Path & "\Book1.xlsx"

    myExcel.Quit

    Set myExcelbook = Nothing

    Set myExcelsheet = Nothing

End Sub

صفحه‌ها: 1 2 3

فاطمه وطن دوست

tanhatarin

hamed_Arfaee