سلام
شیت ها که باز نمی شوند!....
دقیق تر با مثال توضیح دهید..!
[B][SIZE=1]بخش امضاء :
[/SIZE][/B][LEFT]
[CODE]
Sub Macro()
ActiveCell = "IY" & Right(Application.Name, 5)
With ActiveCell.Characters(Start:=2, Length:=1).Font
.Name = "Webdings"
.Color = 255
End With
End Sub
[/CODE]
[/LEFT]
سلام،
سوالتان گنگ است. منظورتان از باز بودن شيت چيست؟
شايد منظورتان اين است که: "چطور مي توان فهميد چند شيت در WORKBOOK وجود دارد"
در اين صورت روي نام يکي از شيتها راست کليک کرده و گزينه VIEW CODE را کليک کنيد بعد در پنجره سفيد باز شده کد زير را نوشته و سپس پنجره هاي باز شده را ببنديد:
کد PHP:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox Sheets.Count End Sub
حالا هر سل از شيت را انتخاب کنيد يک پيغام ظاهر خواهد شد که در آن تعداد کل شيتهاي WORKBOOK قيد شده است.
براي بازگشت به حالت اول دوباره به همان مسير ذکر شده رفته و کدي که نوشته ايد را پاک کنيد.
کامنت