[حل شده] ایجاد بارکد در بخضی از امور ماکرو

[armey]

ضمن عرض ادب و احترام به
دوستان عزیز و اعضای محترم


تشکر فراوان از دوست بزرگوار
کاربر iranweld
که در پست

https://forum.exceliran.com/showthread.php/18822-%D9%86%DB%8C%D8%A7%D8%B2-%D8%A8%D9%87-%DA%A9%D8%AF-%D9%86%D9%88%DB%8C%D8%B3%DB%8C-%D8%AC%D9%87%D8%AA-%DA%86%D8%A7%D9%BE-%D8%B4%DB%8C%D8%AA-%D9%87%D8%A7%DB%8C-%D8%AE%D8%A7%D8%B5-%D8%A8%D8%B1-%D8%A7%D8%B3%D8%A7-%D8%B4%D8%B1%D8%B7-%D9%87%D8%A7%DB%8C-%D9%85%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1

بنده را راهنمایی کردند و کمک بسیار بزرگی داشتند



درخواستی دارم که نیازمند کمک هستم


ما کد زیر رو داریم

Sub Print_Form()    Dim x As Integer


  x = 2


   Do


  Call Fill_Form(x)


   Sheets("form nasb").PrintOut


Select Case Sheets("takhsisi ruz").Cells(x, 35)
Sub Fill_Form(x As Integer)


Sheets("form nasb").Shapes("TextBox 49").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 8)
Sheets("form nasb").Shapes("TextBox 22").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 11)
Sheets("form nasb").Shapes("TextBox 84").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 9)
Sheets("form nasb").Shapes("TextBox 37").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 10)
Sheets("form nasb").Shapes("TextBox 10").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 21)
Sheets("form nasb").Shapes("TextBox 8").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 16)
Sheets("form nasb").Shapes("TextBox 7").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 17)
Sheets("form nasb").Shapes("TextBox 59").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 4)
Sheets("form nasb").Shapes("TextBox 54").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 5)
Sheets("form nasb").Shapes("TextBox 47").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 35)
Sheets("form nasb").Shapes("TextBox 55").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 34)
Sheets("form nasb").Shapes("TextBox 2").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 18)
Sheets("form nasb").Shapes("TextBox 9").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 40)
Sheets("form nasb").Shapes("TextBox 23").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 20)
Sheets("form nasb").Shapes("TextBox 64").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 10)
Sheets("form nasb").Shapes("TextBox 3").DrawingObject.Text = Sheets("adres").Cells(x, 2)
Sheets("form nasb").Shapes("TextBox 6").DrawingObject.Text = Sheets("adres").Cells(x, 3)
Sheets("form nasb").Shapes("TextBox 1").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 9)
Sheets("form nasb").Shapes("TextBox 11").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 10)
Sheets("form nasb").Shapes("TextBox 14").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 8)
Sheets("form nasb").Shapes("TextBox 15").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 17)
Sheets("form nasb").Shapes("TextBox 16").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 18)
Sheets("form nasb").Shapes("TextBox 17").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 34)
Sheets("form nasb").Shapes("TextBox 34").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 20)
Sheets("form nasb").Shapes("TextBox 19").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 34)
Sheets("form nasb").Shapes("TextBox 18").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 40)
Sheets("form nasb").Shapes("TextBox 20").DrawingObject.Text = Sheets("adres").Cells(x, 7)
Sheets("form nasb").Shapes("TextBox 29").DrawingObject.Text = Sheets("adres").Cells(x, 10)
Sheets("form nasb").Shapes("TextBox 25").DrawingObject.Text = Sheets("adres").Cells(x, 9)
Sheets("form nasb").Shapes("TextBox 35").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 21)








End Sub

که میره از شیت هایی سورس اطلاعات را می آورد و داخل تکست باکسهایی در فرم هدف میگذارد و چاپ میکند



2 سوال دارم اگر بذل مرحمت فرمایید سپاس گذار میشود

1- سوال بسیار مهم و مقصود از این تاپیک و پست
چگونه عددی را از شیت سورس اطلاعات به فرم هدف منتقل کنم که بصورت بارکد شود
مثلا کد ملی فرد از شیت سورس خام به فرم قرار داد منتقل شده در تکست باکسی که معین کردیم
ولی میخواییم در آن تکسن باکس بصورت بارکد چاپ شود







2- اگر بخواییم در کد

Sheets("form nasb").Shapes("TextBox 64").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 10)

بجای اینکه بگویی تکست باکس64 را با سلول دهم از شیت تخصیصی پر کن
بخواهییم بگوییم
سلول مثلا a2 را با سلول دهم شیت تخصیصی پر کن باید چه دستوری بنویسیم
و اگر این را بخواهم در کد مرجع بالا بگذارم جای دیگری را بیاد ویرایش کنم یا خیر




با سپاس و تجدید احترام

[armey]

با سلام

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

Sheets("form nasb").Shapes("TextBox 35").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 21)

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

Sheets("form nasb").Range("j52") = Sheets("adres").Cells(x, 10)

جهت ساخت بارکد هم فونت زیر
رو در گوگل سرچ کنید
3 of 9 Barcode

https://www.wfonts.com/download/data/2015/08/28/3-of-9-barcode/3-of-9-barcode.zip

لینک دانلود



فقط هر عددی داخل هر سلول رو باید بین دو * قرار دهید

="*"&VALUE('takhsisi ruz'!E2)&"*"