Page 1 of 1
สอบถามเกี่ยวกับ แทนค่า ใน macro
Posted: Wed Nov 22, 2017 9:14 am
by titus
สอบถามเกี่ยวกับ แทนค่า ใน macro ครับ
กำหนดค่า R เท่า 24 ให้ไป แทนค่า เลข24 ใน Range("BO24").value
ทดลองเขียนสูตร erorr ครับ ต้องแก้ตรงไหนครับ
R = 24
Range("BO&R").Value = "=MAX(E10:H25)"
Re: สอบถามเกี่ยวกับ แทนค่า ใน macro
Posted: Wed Nov 22, 2017 9:35 am
by puriwutpokin
ลองปรับเป็น และถ้าไม่ผ่านอย่างไร แบบไฟล์ตัวอย่างมาด้วยครับ
Code: Select all
Range("BO"&R).Value = "=MAX(E10:H25)"
Re: สอบถามเกี่ยวกับ แทนค่า ใน macro
Posted: Wed Nov 22, 2017 9:48 am
by titus
ได้แล้วครับ ขอบคุณมากครับ
Re: สอบถามเกี่ยวกับ แทนค่า ใน macro
Posted: Wed Nov 22, 2017 9:55 am
by titus
สอบถามเพิ่มเติมหน่อยครับ ใน
"=MAX(E10:H25)"
เราสามรถ แทน ค่า 10 และ 25 ด้วยตัวแปลได้ไหมครับ
Re: สอบถามเกี่ยวกับ แทนค่า ใน macro
Posted: Wed Nov 22, 2017 10:26 am
by puriwutpokin
titus wrote:สอบถามเพิ่มเติมหน่อยครับ ใน
"=MAX(E10:H25)"
เราสามรถ แทน ค่า 10 และ 25 ด้วยตัวแปลได้ไหมครับ
"=MAX(E10:H25)" เป็นสูตรที่ไปอยู่ในหน้าชีท ในเซลโดยตรง ไม่สามารถใช้ค่าตัวแปรได้ในสูตรครับ เว้นแต่ให้ส่งค่า max เป็นค่าไปที่เซลนั้นๆครับ
Re: สอบถามเกี่ยวกับ แทนค่า ใน macro
Posted: Wed Nov 22, 2017 10:35 am
by titus
พอจะมีตัวอย่างไหม ครับ ส่งยังไง ขอบคุณครับ
Re: สอบถามเกี่ยวกับ แทนค่า ใน macro
Posted: Wed Nov 22, 2017 11:35 am
by puriwutpokin
titus wrote:พอจะมีตัวอย่างไหม ครับ ส่งยังไง ขอบคุณครับ
ตัวอย่างโค้ดครับ
Code: Select all
Dim R, X, Y As Integer
R=24
X=10
Y=25
Range("BO"&R).Value = Application.Max(["E"&X&":H"&Y])
Re: สอบถามเกี่ยวกับ แทนค่า ใน macro
Posted: Wed Nov 22, 2017 1:53 pm
by titus
puriwutpokin wrote:titus wrote:พอจะมีตัวอย่างไหม ครับ ส่งยังไง ขอบคุณครับ
ตัวอย่างโค้ดครับ
Code: Select all
Dim R, X, Y As Integer
R=24
X=10
Y=25
Range("BO"&R).Value = Application.Max(["E"&X&":H"&Y])
ลองเข้าไปใส่ Application.Max กับ Min มันไม่มี Max-Min ให้นะครับ
Re: สอบถามเกี่ยวกับ แทนค่า ใน macro
Posted: Wed Nov 22, 2017 2:27 pm
by puriwutpokin
titus wrote:puriwutpokin wrote:titus wrote:พอจะมีตัวอย่างไหม ครับ ส่งยังไง ขอบคุณครับ
ตัวอย่างโค้ดครับ
Code: Select all
Dim R, X, Y As Integer
R=24
X=10
Y=25
Range("BO"&R).Value = Application.Max(["E"&X&":H"&Y])
ลองเข้าไปใส่ Application.Max กับ Min มันไม่มี Max-Min ให้นะครับ
ปรับเป็น
application.Worksheetfunction.max(Range)
Re: สอบถามเกี่ยวกับ แทนค่า ใน macro
Posted: Wed Nov 22, 2017 4:07 pm
by titus
มขึ้น ไม่สามรถเรียกคลาส MIN ได้ ครับ
Re: สอบถามเกี่ยวกับ แทนค่า ใน macro
Posted: Wed Nov 22, 2017 4:33 pm
by puriwutpokin
ตัวอย่างครับโค้ดที่ปรับครับ ก่อนหน้านี้ผมตอบทางมือถือเลยไม่ได้เทสท์ครับ
Code: Select all
'Other Code...
Dim R, X, Y As Integer
R = 24
X = 10
Y = 25
Range("BO" & R).Value = Application.Max(Range("E" & X, "H" & Y))
'Other Code...
Re: สอบถามเกี่ยวกับ แทนค่า ใน macro
Posted: Wed Nov 22, 2017 7:33 pm
by titus
ขอบคุณมากครับ