:!: โปรดทราบ Image
    1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ Image
    2. การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
      1. สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่านImage
      2. Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้ Image กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
    3. เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว Image
    4. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้ Image
    5. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ ==> กำหนดขนาดตัวอักษรใน Browser Image

สอบถามเกี่ยวกับ แทนค่า ใน macro

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟลที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
titus
Member
Member
Posts: 26
Joined: Sun Aug 24, 2014 1:34 pm

สอบถามเกี่ยวกับ แทนค่า ใน macro

#1

Postby titus » Wed Nov 22, 2017 9:14 am

สอบถามเกี่ยวกับ แทนค่า ใน macro ครับ

กำหนดค่า R เท่า 24 ให้ไป แทนค่า เลข24 ใน Range("BO24").value
ทดลองเขียนสูตร erorr ครับ ต้องแก้ตรงไหนครับ

R = 24
Range("BO&R").Value = "=MAX(E10:H25)"

User avatar
puriwutpokin
Gold
Gold
Posts: 1010
Joined: Fri Jan 04, 2013 9:49 pm

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

#2

Postby puriwutpokin » Wed Nov 22, 2017 9:35 am

ลองปรับเป็น และถ้าไม่ผ่านอย่างไร แบบไฟล์ตัวอย่างมาด้วยครับ

Code: Select all

Range("BO"&R).Value = "=MAX(E10:H25)"
:roll: สูตรที่ต้องกด Ctrl+Shift+Enter เพื่อให้สูตร Array นั้นทำงาน

titus
Member
Member
Posts: 26
Joined: Sun Aug 24, 2014 1:34 pm

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

#3

Postby titus » Wed Nov 22, 2017 9:48 am

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

titus
Member
Member
Posts: 26
Joined: Sun Aug 24, 2014 1:34 pm

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

#4

Postby titus » Wed Nov 22, 2017 9:55 am

สอบถามเพิ่มเติมหน่อยครับ ใน
"=MAX(E10:H25)"

เราสามรถ แทน ค่า 10 และ 25 ด้วยตัวแปลได้ไหมครับ

User avatar
puriwutpokin
Gold
Gold
Posts: 1010
Joined: Fri Jan 04, 2013 9:49 pm

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

#5

Postby puriwutpokin » Wed Nov 22, 2017 10:26 am

titus wrote:สอบถามเพิ่มเติมหน่อยครับ ใน
"=MAX(E10:H25)"

เราสามรถ แทน ค่า 10 และ 25 ด้วยตัวแปลได้ไหมครับ

"=MAX(E10:H25)" เป็นสูตรที่ไปอยู่ในหน้าชีท​ ในเซลโดยตรง​ ไม่สามารถ​ใช้ค่าตัวแปรได้ในสูตรครับ​ เว้นแต่ให้ส่งค่า​ max เป็นค่าไปที่เซลนั้นๆครับ
:roll: สูตรที่ต้องกด Ctrl+Shift+Enter เพื่อให้สูตร Array นั้นทำงาน

titus
Member
Member
Posts: 26
Joined: Sun Aug 24, 2014 1:34 pm

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

#6

Postby titus » Wed Nov 22, 2017 10:35 am

พอจะมีตัวอย่างไหม ครับ ส่งยังไง ขอบคุณครับ

User avatar
puriwutpokin
Gold
Gold
Posts: 1010
Joined: Fri Jan 04, 2013 9:49 pm

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

#7

Postby puriwutpokin » Wed Nov 22, 2017 11:35 am

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]​​)
:roll: สูตรที่ต้องกด Ctrl+Shift+Enter เพื่อให้สูตร Array นั้นทำงาน

titus
Member
Member
Posts: 26
Joined: Sun Aug 24, 2014 1:34 pm

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

#8

Postby titus » Wed Nov 22, 2017 1:53 pm

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 ให้นะครับ

User avatar
puriwutpokin
Gold
Gold
Posts: 1010
Joined: Fri Jan 04, 2013 9:49 pm

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

#9

Postby puriwutpokin » Wed Nov 22, 2017 2:27 pm

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)​
:roll: สูตรที่ต้องกด Ctrl+Shift+Enter เพื่อให้สูตร Array นั้นทำงาน

titus
Member
Member
Posts: 26
Joined: Sun Aug 24, 2014 1:34 pm

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

#10

Postby titus » Wed Nov 22, 2017 4:07 pm

มขึ้น ไม่สามรถเรียกคลาส MIN ได้ ครับ
You do not have the required permissions to view the files attached to this post.

User avatar
puriwutpokin
Gold
Gold
Posts: 1010
Joined: Fri Jan 04, 2013 9:49 pm

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

#11

Postby puriwutpokin » Wed Nov 22, 2017 4:33 pm

ตัวอย่างครับโค้ดที่ปรับครับ ก่อนหน้านี้ผมตอบทางมือถือเลยไม่ได้เทสท์ครับ

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...
:roll: สูตรที่ต้องกด Ctrl+Shift+Enter เพื่อให้สูตร Array นั้นทำงาน

titus
Member
Member
Posts: 26
Joined: Sun Aug 24, 2014 1:34 pm

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

#12

Postby titus » Wed Nov 22, 2017 7:33 pm

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


Return to “Excel”

Who is online

Users browsing this forum: No registered users and 21 guests