ایجاد پیغام هنگام باز شدن اکسل

[ali.b]

سلا
برای اینکه هر وقت فایل اسکل رو باز کردین یک پیغام بیاد این کد رو در workbook ذخیره کنید

Private Sub Workbook_Open()

Msgbox "Welcome"


End Sub

[mashhad]

خیلی ممنون واقعا عالی بود

[yamahdi13601982]

با سلام و خسته نباشید.من دنبال ماکرویی میگردم که با توجه به شماره فاکتور ؛ شیت رو تولید کنه و اگه این شیتی که میخواد تولید کنه از قبل وجود داشته باشه پیغام بده که تکراری هستش.با تشکر

[iranweld]

با سلام

فایل پیوست بسته به دیتای موجود در ستون A شیت ایجاد مینماید و در صورت موجود بودن پیغام میدهد


Private Sub CommandButton1_Click()

Dim i As Integer, blnFound As Boolean

y = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row


With ThisWorkbook

For j = 1 To y
blnFound = False
For i = 1 To .Sheets.Count

If .Sheets(i).Name = Sheet1.Range("a" & j).Value Then
blnFound = True
MsgBox "sheet: " & .Sheets(i).Name & " ready"

End If
Next i

If blnFound = False Then
.Sheets.Add After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = Sheet1.Range("a" & j).Value
End With

End If

Next j
End With

Sheet1.Select

End Sub

[yamahdi13601982]

مرسی از لطفتون-همونیه که میخواستم:min18:

[yamahdi13601982]

با سلام و خسته نباشید خدمت اساتید محترم میخواستم بدونم چطوری میتونم به یه کلید بگم که مثلا تو سلول a1 اسم همین کار پوشه ای رو که توش هستم بنویسه

[yamahdi13601982]

و اینکه چرا من نمیتونم تو این پست موضوع جدیدی رو بنویسم؟

[Ali Parsaei]

و اینکه چرا من نمیتونم تو این پست موضوع جدیدی رو بنویسم؟
لطفا" براي هر سوالتان پست جديدي ايجاد کنيد (البته قبلش در سايت جستجو کنيد و ببينيد قبلا" مشابه سوال شما مطرح نشده باشد) اين طوري کساني که بعدا" به سايت مراجه مي کنند و يا خودمان اگر بعدها به سايت مراجعه کنيم خيلي راحت مي توانيم دنبال موضوعات بگرديم، وگرنه اصلا" يک پست ايجاد مي شد و تا آخر همه سوالاتشان را داخل آن مي نوشتند!;)

[fokker]

دوست عزیز اسپارتان میشه نمونه بزاری لطفا.

[Amir Ghasemiyan]

دوست عزیز اسپارتان میشه نمونه بزاری لطفا.

خدمت شما دوست عزیز

[fokker]

ممنون جناب قاسمیان