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

รบกวนสอบถามคำสั่ง IF Then else VBA ครับ

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
arxyang
Member
Member
Posts: 9
Joined: Tue Sep 19, 2017 11:20 am

รบกวนสอบถามคำสั่ง IF Then else VBA ครับ

#1

Post by arxyang »

ผมต้องการเทียบค่าข้อมูลระหว่างสองตัวแปร เช่น A<=500 and b<=1 ให้แสดงผลออกมาเป็นค่าเช่น 200 ต้องเขียนประมาณไหนครับ
ขอบคุณครับ
User avatar
puriwutpokin
Guru
Guru
Posts: 3693
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: รบกวนสอบถามคำสั่ง IF Then else VBA ครับ

#2

Post by puriwutpokin »

คำถามเกี่ยว VBA ตามกฏของบอร์ดนี้ ต้องเขียนมาก่อนครับ ติดขัดตรงไหน มาถามต่อครับ เบื้องต้นลองศึกษาจาก Google หรือ You Tube แล้วติดตรงไหนมาถามกันในบอร์ดนี้ครับ
:shock: :roll: :D
arxyang
Member
Member
Posts: 9
Joined: Tue Sep 19, 2017 11:20 am

Re: รบกวนสอบถามคำสั่ง IF Then else VBA ครับ

#3

Post by arxyang »

puriwutpokin wrote: Tue Apr 17, 2018 4:38 pm คำถามเกี่ยว VBA ตามกฏของบอร์ดนี้ ต้องเขียนมาก่อนครับ ติดขัดตรงไหน มาถามต่อครับ เบื้องต้นลองศึกษาจาก Google หรือ You Tube แล้วติดตรงไหนมาถามกันในบอร์ดนี้ครับ
Option Explicit

Function Shippingprice(S) As String
Dim W As String
Dim P As String

if P<=500 && W<=1.00
then S = "205"
else if P<=1000 and W<=1.00
thenS = "266"
else if P<=1500 and W<=1.00
thenS = "327"
else if P<=2000 and W<=1.00
thenS = "388"
else if P<=2500 and W<=1.00
thenS = "450"
else if P<=3000 and W<=1.00
thenS = "511"
else if P<=3500 and W<=1.00
thenS = "572"
else if P<=4000 and W<=1.00
thenS = "634"
else if P<=4500 and W<=1.00
thenS = "695"
else if P<=5000 and W<=1.00
thenS = "756"
else if P<=5500 and W<=1.00
thenS = "817"
else if P<=6000 and W<=1.00
thenS = "879"
else if P<=6500 and W<=1.00
thenS = "940"
else if P<=7000 and W<=1.00
thenS = "1001"
else if P<=7500 and W<=1.00
thenS = "1062"
else if P<=8000 and W<=1.00
thenS = "1124"
else if P<=8500 and W<=1.00
thenS = "1185"
else if P<=9000 and W<=1.00
thenS = "1246"
else if P<=9500 and W<=1.00
thenS = "1307"
else if P<=10000 and W<=1.00
thenS = "1369"



End If
End Function

ประมานนี้ครับ
User avatar
logic
Gold
Gold
Posts: 1506
Joined: Thu Mar 18, 2010 1:57 pm
Excel Ver: 365

Re: รบกวนสอบถามคำสั่ง IF Then else VBA ครับ

#4

Post by logic »

แนบเป็นไฟล์เอ็กเซลมาด้วยจะดีกว่าเพื่อน ๆ จะได้ช่วยกันดูให้ได้ แต่ก็ต้องบอกมาด้วยว่าต้องการคำตอบแสดงที่ไหน

ข้อความที่เป็นโค้ดให้ทำตามกฎการใช้บอร์ดข้อ 5 ด้านบนของหน้านี้ครับ
User avatar
puriwutpokin
Guru
Guru
Posts: 3693
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: รบกวนสอบถามคำสั่ง IF Then else VBA ครับ

#5

Post by puriwutpokin »

ลองดูการใช้ คำสั่ง​เบื้องต้นของ อ.คนควน ดูครับ wordpress/if-then-else/
ติดขัดอย่างไร ก็ทำตามที่คุณLogic
แนะนำ​ครับ
:shock: :roll: :D
Post Reply