سوال

[فرزانه 5803]

باسلام
سوالاتی دارم
چطور میشه تعداد ثابتی ردیف یا ستون بین تمام ردیف ها ی مورد نظربا یک روش اضافه کرد که مجبور به تک تک اضافه کردن نباشیم؟
و چطور میشه تمام ردیف های خالیه بین ردیف ها ی متوالیه پر شده را به یکباره hideکرد که باز هم مجبور به تک تک انجام دادن نباشیم
و در جایی خوندم که میشه اعداد رو به حروف تبدیل کرد اما بعد از دریافت فایل نتونستم این کار رو انجام بدم کسی هست که دقیقا توضیح بده؟
سوال آخرم در ارتباط با کپی کردن عکس هایی هست که در اکسل وجود داره به عنوان مثال من ناحیه خاصی رو کپی میکنم که در اون هم متن و هم عکی وجود داره اما بعد از کپی عکس کپی نمیشه و دوباره باید ععکس رو کپی کنم چه راهی وجود داره؟

[amir_ts]

با سلام
شما باید عنوان مناسبی برای سوالاتون انتخاب میکردید که گویای قسمتی از موضوع باشه.
با کد نویسی سوال یک و دو حل میشه.
سوال سه باید Add in مربوطه رو به اکسل اضافه یا کد های مربوطه رو در فایل قرار بدید تا عمل تبدیل اعداد به حروف انجام بشه.
سوال آخر هم متوجه نشدم.(به صورت معمول با کپی محدوده شامل عکس و متن،همه کپی میشه گزینه های paste special رو ملاحظه کنید.)

[فرزانه 5803]

با سلام
شما باید عنوان مناسبی برای سوالاتون انتخاب میکردید که گویای قسمتی از موضوع باشه.
با کد نویسی سوال یک و دو حل میشه.
سوال سه باید Add in مربوطه رو به اکسل اضافه یا کد های مربوطه رو در فایل قرار بدید تا عمل تبدیل اعداد به حروف انجام بشه.
سوال آخر هم متوجه نشدم.(به صورت معمول با کپی محدوده شامل عکس و متن،همه کپی میشه گزینه های paste special رو ملاحظه کنید.)

با سلام و سپاس بابت پاسخ
اما من هنوز جوابی نگرفتم
در مورد سوال 3 منظورم این بود به عنوان مثال من فیش حقوق تنظیم کردم و logo شرکت را طراحی کردم اما زمانی که میخوام اون فیش رو کپی کنم فقط متن کپی میشه و logo کپی نمیشه با استفاده از paste special جوابی نگرفتم واسه همین سوال پرسیدم
در مورد بقیه سوالات هم جوابی نگرفتم چون دقیقا میخوام توضیح بدید اگخ ممکنه

[amir_ts]

با سلام
مثلا بعد از ردیف a1 یک ردیف اضافه میشه:

Range("A2").EntireRow.Insert 

برای مخفی کردن ردیف های خالی بین a1 تا a10

[LEFT]Sub hiderow()
    Dim r As Range, c As Range
Set r = Range("a1:a10")
Application.ScreenUpdating = False
For Each c In r
    If Len(c.Text) = 0 Then
        c.EntireRow.Hidden = True
    Else
        c.EntireRow.Hidden = False
    End If
Next c
Application.ScreenUpdating = True
End Sub[/LEFT]

add in مربوطه در سایت در تاپیک هایی لینکش موجود هست با یک جستجو میتونید پیدا کنید.

برای سوال آخر یک نمونه از فرمی که لوگو داره رو اگه امکان داره قرار بدید یا چیزی شبیه اون که بررسی بشه.

[فرزانه 5803]

با سلام
مثلا بعد از ردیف a1 یک ردیف اضافه میشه:

Range("A2").EntireRow.Insert 

برای مخفی کردن ردیف های خالی بین a1 تا a10

[LEFT]Sub hiderow()
    Dim r As Range, c As Range
Set r = Range("a1:a10")
Application.ScreenUpdating = False
For Each c In r
    If Len(c.Text) = 0 Then
        c.EntireRow.Hidden = True
    Else
        c.EntireRow.Hidden = False
    End If
Next c
Application.ScreenUpdating = True
End Sub[/LEFT]

add in مربوطه در سایت در تاپیک هایی لینکش موجود هست با یک جستجو میتونید پیدا کنید.

برای سوال آخر یک نمونه از فرمی که لوگو داره رو اگه امکان داره قرار بدید یا چیزی شبیه اون که بررسی بشه.

ممنون ارسال شد

[amir_ts]

فایل رو ملاحظه کنید من محدوده a1:k22 رو انتخاب کردم بعد کپی و در شیت های بعدی paste کردم.آیا نتیجه در شیت های بعدی درست بوده؟

[iranweld]

با سلام

محدوده مورد نظر برای کپی را در قسمت DEFINE NAME تعریف کنید و با یک ماکرو ساده برای شیت های بعدی فراخوانی کنید.

Sub TEST()

[FORM1].Copy Destination:=Range("A1")


End Sub 

[فرزانه 5803]

با سلام
مثلا بعد از ردیف a1 یک ردیف اضافه میشه:

Range("A2").EntireRow.Insert 

برای مخفی کردن ردیف های خالی بین a1 تا a10

[LEFT]Sub hiderow()
    Dim r As Range, c As Range
Set r = Range("a1:a10")
Application.ScreenUpdating = False
For Each c In r
    If Len(c.Text) = 0 Then
        c.EntireRow.Hidden = True
    Else
        c.EntireRow.Hidden = False
    End If
Next c
Application.ScreenUpdating = True
End Sub[/LEFT]

add in مربوطه در سایت در تاپیک هایی لینکش موجود هست با یک جستجو میتونید پیدا کنید.

برای سوال آخر یک نمونه از فرمی که لوگو داره رو اگه امکان داره قرار بدید یا چیزی شبیه اون که بررسی بشه.

فایل مورد نظر


فرم222.xlsxفرم222.xlsx

[amir_ts]

فایل مورد نظر


[ATTACH]12246[/ATTACH][ATTACH]12246[/ATTACH]

متوجه دلیل ارسال پست نشدم؟

[فرزانه 5803]

با سلام

محدوده مورد نظر برای کپی را در قسمت DEFINE NAME تعریف کنید و با یک ماکرو ساده برای شیت های بعدی فراخوانی کنید.

Sub TEST()




با سپاس
بسیار ممنونم از لطف  شما

[FORM1].Copy Destination:=Range("A1")


End Sub 

[ATTACH=CONFIG]12244[/ATTACH]

با سپاس از شما دوست عزیز

[فرزانه 5803]

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

[iranweld]

فایل پیوست را ملاحظه بفرمایید

تعداد برای کپی را در قسمت زرد رنگ وارد کنید

[iranweld]

با کمی تغییرات در ماکرو

ضمنا Mail Merge گزینه مناسبی برای کاری که شما در نظر دارید میباشد

در ورد فرم فیش حقوقی را طراحی نموده و دیتا را از اکسل فراخوانی میکنید و به تعداد افرادی که در لیست اکسل وجود دارند با یک دستور برای همه پرینت میتوانید بگیرید

[فرزانه 5803]

متاسفانه جواب نمیده
و واقعا گیج شدم

[amir_ts]

متاسفانه جواب نمیده
و واقعا گیج شدم

توضیحات و فیلم آموزش زیر رو ببینید.
استفاده از word و excel برای ایجاد تعداد زیادی فرم