ClearContents کردن سلول های مرج شده

yuri · 2021/03/13, 10:18

آقا مجید عزیز میدونم براتون زحمته اگر امکانش هست کمکم کنید
ایشالا ما هم به زودی کامل یاد میگیریم مثل شما به بقیه دوستان کمک میکنیم

نوشته اصلی توسط majid_mx4

با سلام
برای باز کردن فایل PDF بعد از کد ذخیره فایل PDF کد زیر را اضافه کنید

کد:

ChDir "C:\Users\Mx4\Desktop\list factor"  ' مسير فايل شما
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Mx4\Desktop\list factor\list factor" & Range("H8").Value & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

توجه داشته باشید مسیر خودتان را با مسیر داده شده در کد تغییر دهید.
قسمت دوم سوالتان را متوجه نشدم یعنی میخواهید وقتی فایل ذخیره میشود فقط سلول A1 تا i40 ذخیره شود.
موفق باشید میر

yuri · 2021/03/11, 14:06

ممنون
بله درسته میخوام فقط سلول a1 تا i40 ذخیره شود
منظورتون رو دقیق متوجه نشدم یعنی کد زیر رو بنویسم :

NewFN = "C:\list factor" & Range("H8").Value & ".pdf"

و بعد از آن از کد شما استفاده کنم؟
این کار رو کردم و برای مسیر خودم انتخاب کردم و کد زیر رو وارد کردم

ChDir "C:\list factor" ' مسير فايل شما
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\list factor" & Range("H8").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

ولی از سطر دوم به بعد رو debug آورد و زرد رنگ شد و فایلم رو میذارم
مربوط به بالاترین button یعنی "ذخیره و جدید" هست

فاکتور حرفه ای

https://s16.picofile.com/file/8427618592/%D9%81%D8%A7%DA%A9%D8%AA%D9%88%D8%B1_%D8%AD%D8%B1%D9%81%D9%87_%D8%A7%DB%8C.xlsm.html

majid_mx4 · 2021/03/11, 10:39

با سلام
برای باز کردن فایل PDF بعد از کد ذخیره فایل PDF کد زیر را اضافه کنید

کد:

ChDir "C:\Users\Mx4\Desktop\list factor"  ' مسير فايل شما
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Mx4\Desktop\list factor\list factor" & Range("H8").Value & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

توجه داشته باشید مسیر خودتان را با مسیر داده شده در کد تغییر دهید.
قسمت دوم سوالتان را متوجه نشدم یعنی میخواهید وقتی فایل ذخیره میشود فقط سلول A1 تا i40 ذخیره شود.
موفق باشید میر

yuri · 2021/03/10, 21:20

سپاس از شما
عالی عالی شد
بعد از next هم سلول هایی که مرج نبودند رو گذاشتم و به خوبی کار کرد
یک کد vba هم دارم که به این شرح هست :

Sub SaveInvWithNewName()
Dim NewFN As Variant
' Copy Invoice to a new workbook
ActiveSheet.Copy
NewFN = "C:\list factor" & Range("H8").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
NewFN = "C:\list factor" & Range("H8").Value & ".pdf"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
Print2
ActiveWorkbook.Close
NewInvoice
ActiveWorkbook.Save
End Sub

که وابسته به کد اولی هست که روش کلیک میکنم یک فایل اکسل کپی میکنه و کد اصلی فقط اکسل بود که pdf هم براش اضافه کردم یعنی میخوام همزمان یک فایل اکسل و یک فایل pdf ذخیره کنه که انجام میده ولی فایل پی دی اف رو باز نمیکنه چون دومین سطر مربوط که به ذخیره pdf مربوط به فرمت اکسل هست یعنی FileFormat:=xlOpenXMLWorkbook که بجاش از FileFormat:=xlTypePDF استفاده کردم ولی خطا داد و به حالت قبلی برگردوندمش
اگر امکانش هست لطف کنید این مورد رو هم کمکم کنید و اینکه از سلول A1 تا I40 ذخیره کنه نه همه ش رو

majid_mx4 · 2021/03/10, 20:22

با سلام
کد زیر را امتحان کنید .

کد:

Sub MergedClear()
    Dim Rg As Range, Rg1 As Range
    Dim xAddress As String
    On Error Resume Next
   Set Rg = Sheet1.Range("C4:C18")
    If Rg Is Nothing Then Exit Sub
    For Each Rg1 In Rg
        If Rg1.MergeCells Then Rg1.MergeArea.ClearContents
    Next
End Sub

پایدار باشید میر