[حل شده] انجام عمل "کپی" به وسیله ماکرو

[احسان رنجبر]

سلام
وقت بخیر
یک سوال داشتم
چطور میشه با کلیک روی یک Shape متن یک سلول را کپی کرد در حافظه کلیبورد.
به عبارتی میخوام فقط محتوای سلول را کپی کنم تا در هرمحیطی غیر اکسل بتونم Paste کنم
مثال:اگر در سلولA1 کلمه "مشهد" وجود دارد،با کلیک بر روی Shape ،بتوان کلمه"مشهد" را کپی کرد و در هر محیط دیگری به جز اکسل این کلمه راچسباند.
این کار رو با ضبط ماکرو انجام میدم ولی متاسفانه سلول کپی میشه.
ممنون میشم اگر از VBA و یا هر روشی بگید چکار کنم

[میثم مقدم نیا]

سلام
وقت بخیر
یک سوال داشتم
چطور میشه با کلیک روی یک Shape متن یک سلول را کپی کرد در حافظه کلیبورد.
به عبارتی میخوام فقط محتوای سلول را کپی کنم تا در هرمحیطی غیر اکسل بتونم Paste کنم
مثال:اگر در سلولA1 کلمه "مشهد" وجود دارد،با کلیک بر روی Shape ،بتوان کلمه"مشهد" را کپی کرد و در هر محیط دیگری به جز اکسل این کلمه راچسباند.
این کار رو با ضبط ماکرو انجام میدم ولی متاسفانه سلول کپی میشه.
ممنون میشم اگر از VBA و یا هر روشی بگید چکار کنم

سلام

برای این کار کافیه یک shape ایجاد کنید و کد زیر را برای اون قرار بدید

Sub Rectangle1_Click()

    Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy

End Sub 

اگر میخواهید سلول ها خودتون انتخاب کنید

Sub Rectangle1_Click()

       Application.CutCopyMode = False
    Selection.Copy

End Sub 

[احسان رنجبر]

سلام

برای این کار کافیه یک shape ایجاد کنید و کد زیر را برای اون قرار بدید

Sub Rectangle1_Click()

    Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy

End Sub 

اگر میخواهید سلول ها خودتون انتخاب کنید

Sub Rectangle1_Click()

       Application.CutCopyMode = False
    Selection.Copy

End Sub 

[ATTACH=CONFIG]23277[/ATTACH]

سلام
ممنونم از شما
ببینید بزرگوار عملیاتدکپی انجام میشه ولی برای استفاده توی محیطی مثل واتس آپ که میخواهم استفاده کنم به مشکل میخورم
مشکل اینجاست که توی چت واتس آپ وقتی عمل "Paste" رو انجام میدم،تصویر سلول کپی شده قرار میگیره.درصورتی که من متن سلول کپی شده میخوام Paste کنم نه عکس
------------------------
من چون پشتیبانی مشتریان هستم باید با گفت و گوی آنلاین در محیط واتس آپ و یا محیط های دیگه ایی جواب مشتریان بدم و خیلی وقت ها جواب ها تکراری .پس میخوام یک سری جواب هار مجدد تایپ نکنم وبا یک کلیک تو اکسل بتونم کپی کنم تا بتونم توی هرمحیطی که دارم چت میکنم Paste کنم

[iranweld]

با سلام

در محیط واتساپ راست کلیک کنید و paste as plain text را انتخاب کنید.

یا بجای cltr+v کلیدهای ctr+shift+v را فشار دهید.

[احسان رنجبر]

با سلام

در محیط واتساپ راست کلیک کنید و paste as plain text را انتخاب کنید.

یا بجای cltr+v کلیدهای ctr+shift+v را فشار دهید.

[ATTACH=CONFIG]23403[/ATTACH]

خیلی خیلی ممنونم