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

[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]

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

[yamahdi13601982]

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

[yamahdi13601982]

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

[Ali Parsaei]

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

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

[fokker]

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

[Amir Ghasemiyan]

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

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

[fokker]

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