Excel Forum

ขอบคุณ คุณJirakorn มากๆครับ

ทำได้แล้วครับ
ใช้เป็นชื่อชีท ไม่ได้ใช้ลำดับเลขชีทครับ
i = ActiveSheet.Name

Sub copy4x5()
'
Dim i As String 'ใช้รับค่าลำดับที่ของ activesheet
Dim x As Range 'ใช้รับค่าตำแหน่ง activecell ปัจจุบัน


i = ActiveSheet.Name ''' ให้ i รับค่าชื่อ sheet ของ activesheet
Sheets("sheet1").Select
Rows("1 ...

ถ้าเราอยู่่่ใน sheet ใดๆ และต้องการไปคัดลอกข้อมูลจากชีทชื่อ "sheet1"
แล้วนำมาวางใน cell เดิม sheet เดิมที่เลือกเอาไว้ตอนแรก
ต้องใช้โค๊ดไหนรับค่า ลำดับsheet (เลขที่sheet) ปัจจุบันครับ

และใช้โค๊ดไหนรับค่า cell (Range) ที่เลือกไว้ปัจจุบัน
เพื่อที่จะได้เลือก cell เดิมหลังวางค่าที่คัดลอกมาเรียบร้อยแล้ว ...

เข้าใจแล้ว ทำได้แล้วครับ
ขอบคุณ คุณคนควนมากๆครับ

Public Sub addPictures()
' how to run: select a range contains image urls and run this macro
' add multiple pictures using values from selected range and place picture in the right column of selected range
' addPictures rngInput:=Selection, row_offset:=0, col_offset:=1
Dim c As Range ' current ...

เช่น เราเลือก cell ใดๆซึ่งมีค่า 2345
จาก code VBA ต้องการใส่ข้อความ "Z:\รูปY\" + c + ".jpg"
เพื่อให้ค่า c ที่ต้องการเป็น "Z:\PicturesY\2345.jpg"

Public Sub addPictures()
Dim c As Range ' current cell object
Dim img_url As String

Application.ScreenUpdating = False

For Each c In Selection
c ...

ใช้ได้แล้วครับ ขอบคุณคุณคนควนมากๆครับ

เพิ่งจะเห็นวิธีการวาง code VBA ในความเห็น
พรุ่งนี้จะลองวาง code ให้ถูกต้องนะครับ

สามารถใช้ VBA วางรูปภาพให้อยู่กึ่งกลาง cell ได้หรือไม่ครับ

ในไฟล์จะต้องเรียกรูปภาพจากโฟล์เดอร์ "D:\test_ali\picture\"

https://cdn.pic.in.th/file/picinth/14-09-66-16-36-36.jpeg
https://cdn.pic.in.th/file/picinth/14-09-66-16-50-21.jpeg

Dim img_shape As Shape
Set img_shape = ActiveSheet.Shapes ...

ไฟล์แนบเป็น excel (.xlsx)
version ระบุแบบนี้หรือเปล่าครับ
โพสครั้งแรก แนะนำด้วยครับ

สามารถจัดรูปแบบตัวอักษรในแถบสูตรได้หรือไม่ครับ
ไม่ใช่ทั้ง cell แต่ต้องการจัดเฉพาะบางข้อความ เช่น



ข้อมูลจาก E ขึ้นบรรทัดใหม่ เป็นสีแดง และตัวหนา
ผมทำได้แต่ขึ้นบรรทัดใหม่