ویرایش یک سلول با ماکرو

[sheikhoo]

سلام دوستان
کد زیر کد یک ماکرو است برای جستجو و سپس ویرایش یک سلول از یک جدول

    Sheets("tran").Select
    X = Worksheets("tran").Range("U23").Value
    Range("R26").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("mosafer").Select
    Range("F3").Select
    ActiveCell.Offset(X, 10).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("tran").Select
    Application.CutCopyMode = False
    ActiveCell.Select 

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Amir Ghasemiyan]

سلام دوستان
کد زیر کد یک ماکرو است برای جستجو و سپس ویرایش یک سلول از یک جدول

    Sheets("tran").Select
    X = Worksheets("tran").Range("U23").Value
    Range("R26").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("mosafer").Select
    Range("F3").Select
    ActiveCell.Offset(X, 10).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("tran").Select
    Application.CutCopyMode = False
    ActiveCell.Select 

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

سلام دوست عزيز. منظورتون از گرافيكي چيه؟

[sheikhoo]

منظورم اینکه از طریق محیط Excel اینکارو انجام دهم
مانند
1.به منوی View می روم و از Macros گزینه ی Record Macro... رو می زنیم
2.به ورکشیت tran می رویم
3.نمیدونم چکار کرده
X = Worksheets("tran").Range("U23").Value
4.سلول R26 را انتخاب می کنیم
5.آن را کپی می کنیم
6.به ورکشیتmosafer می رویم
7.دیگه بلد نیستم

استادمون یک ماکرو برای جستجو و ویرایش سلول درست کرد که کدش همون کد بالاست(من اون جاسه نبودم و فقط کدشو دارم،نمی دونش چکار کرده که این کد تولید شده)

خیلی ممنون

[sheikhoo]

راستس اینو هم بگم U23 سلولو که مقدار مورد جستجو درونش قرار می گیرد وR26 مقداری است که باید ویرایش شود که در یک Worksheets به نام tran قرار دارند
و جدولی که باید جستجو و ویرایش روی آن انجام گیرد یک Worksheets به نام mosafer است:D

[Amir Ghasemiyan]

راستس اینو هم بگم U23 سلولو که مقدار مورد جستجو درونش قرار می گیرد وR26 مقداری است که باید ویرایش شود که در یک Worksheets به نام tran قرار دارند
و جدولی که باید جستجو و ویرایش روی آن انجام گیرد یک Worksheets به نام mosafer است:D

خب شما كه همه چيزشو ميدونين ديگه. من چي توضيح بدم الان؟

[Ali Parsaei]

سلام،
کد مربوطه اين کار را انجام مي دهد: شيت ترن را انتخاب مي کند - خانه U23 آن را به عنوان X فرض مي کند (يعني مي گويد که هر وقت از اين به بعد نوشتيم X يعني مقدار خانه U23 شيت ترن) - بعد خانه R26 همان صفحه را انتخاب و سپس کپي مي کند - بعد شيت مسافر را انتخاب مي کند - بعد خانه F3 آن صفحه را انتخاب مي کند - حال مي گويد که بايد به اندازه X سطر و 10 ستون از خانه F3 جابجا شد (X که يادتان هست چي بود؟) - بعد فقط مقدار R26 شيت ترن را که کپي کرده بود درون آن مي چسباند - بعد شيت ترن را انتخاب کرده و آخرين خانه اي که موقع ترک شيت فعال بوده را در حالت انتخاب قرار مي دهد.
فقط فکر کنم در سطر هشتم .Range("A1") اصلا" زيادي نوشته شده.
ضمنا" فکر کنم دو خط Application.CutCopyMode = False به اين دليل ايجاد شده است که بعد از چسباندن مقدار مربوطه خط چين هاي دور خانه انتخابي اول محو شود.
فکر کنم اين کد را نتوان فقط توسط ضبط ماکرو ايجاد کرد (به خاطر خط هشتم) البته مطمئن نيستم!

[sheikhoo]

سلام خیلی ممنون

خانه U23 آن را به عنوان X فرض مي کند (يعني مي گويد که هر وقت از اين به بعد نوشتيم X يعني مقدار خانه U23 شيت ترن)

اینو هم چطور می توان با ضبط ماکرو ايجاد کرد؟

بعد خانه F3 آن صفحه را انتخاب مي کند - حال مي گويد که بايد به اندازه X سطر و 10 ستون از خانه F3 جابجا شد

اینو هم چطور می توان با ضبط ماکرو ايجاد کرد؟

ضمنا" فکر کنم دو خط Application.CutCopyMode = False به اين دليل ايجاد شده است که بعد از چسباندن مقدار مربوطه خط چين هاي دور خانه انتخابي اول محو شود.
فکر کنم اين کد را نتوان فقط توسط ضبط ماکرو ايجاد کرد (به خاطر خط هشتم) البته مطمئن نيستم!

ولی می گن همشو با ماکرو ضبط کرده

خب شما كه همه چيزشو ميدونين ديگه. من چي توضيح بدم الان؟

من می خوام بدونم چنتا از کار ها رو چطور با ضبط ماکرو باید انجام داد
1. X = Worksheets("tran").Range("U23").Value
2. ActiveCell.Offset(X, 10).Range("A1").Select

[Ali Parsaei]

ببخشيد البته من زياد وارد نيستم، تا آنجا که مي دانستم يک چيزهايي نوشتم،
فکر کنم راجع به Application.CutCopyMode = False اشتباه کرده ام

[Amir Ghasemiyan]

سلام،
کد مربوطه اين کار را انجام مي دهد: شيت ترن را انتخاب مي کند - خانه U23 آن را به عنوان X فرض مي کند (يعني مي گويد که هر وقت از اين به بعد نوشتيم X يعني مقدار خانه U23 شيت ترن) - بعد خانه R26 همان صفحه را انتخاب و سپس کپي مي کند - بعد شيت مسافر را انتخاب مي کند - بعد خانه F3 آن صفحه را انتخاب مي کند - حال مي گويد که بايد به اندازه X سطر و 10 ستون از خانه F3 جابجا شد (X که يادتان هست چي بود؟) - بعد فقط مقدار R26 شيت ترن را که کپي کرده بود درون آن مي چسباند - بعد شيت ترن را انتخاب کرده و آخرين خانه اي که موقع ترک شيت فعال بوده را در حالت انتخاب قرار مي دهد.
فقط فکر کنم در سطر هشتم .Range("A1") اصلا" زيادي نوشته شده.
ضمنا" فکر کنم دو خط Application.CutCopyMode = False به اين دليل ايجاد شده است که بعد از چسباندن مقدار مربوطه خط چين هاي دور خانه انتخابي اول محو شود.
فکر کنم اين کد را نتوان فقط توسط ضبط ماکرو ايجاد کرد (به خاطر خط هشتم) البته مطمئن نيستم!

خط هشتم كه شما فرمودين با دكمه use relative reference ساخته ميشه. يعني در حين ضبط ماكرو به اين مرحله كه رسيديم اين دكمه رو فعال ميكنيم پيمايش رو انجام ميديم و دوباره غير فعال ميكنيم

سلام خیلی ممنون


اینو هم چطور می توان با ضبط ماکرو ايجاد کرد؟

اینو هم چطور می توان با ضبط ماکرو ايجاد کرد؟

ولی می گن همشو با ماکرو ضبط کرده

من می خوام بدونم چنتا از کار ها رو چطور با ضبط ماکرو باید انجام داد
1. X = Worksheets("tran").Range("U23").Value
2. ActiveCell.Offset(X, 10).Range("A1").Select

اولي رو فكر نكنم بدون كدنويسي بشه با ماكرو درست كرد.شايدم بشه ولي من بلد نيستم
دومي رو هم كه الان توضيح دادم

ببخشيد البته من زياد وارد نيستم، تا آنجا که مي دانستم يک چيزهايي نوشتم،
فکر کنم راجع به Application.CutCopyMode = False اشتباه کرده ام

نه علي آقا درست نوشتين. فكر نكنم اشتباه كرده باشين

[Ali Parsaei]

نه علي آقا درست نوشتين. فكر نكنم اشتباه كرده باشين

امير جان از راهناييهايت خيلي ممنونم، ببخشيد که من بعضي وقتها پا تو کفش بزرگترها مي کنم