Snasui Excel Forum

มันขึ้นerror ว่า compile error :else without if ครับ

ผมทำ data validation สองส่วนใน cell E1 และ E2 คือถ้าเลือก 23 ให้e2แสดงค่า a ออกมา Sub Macro1()
'
' Macro1 Macro
'

'dim i as float

For i = 1 To 200

If Range("e1") = 23 Then Range("e2") = a
Else
If Range("e1") = 45 Then Range("e2") = b
Else
If Range("e1") = 67 Then Range("e2") = c
Next
End If
End ...

คือหาวิธีการเลือกข้อมูลจากcombo box 2 ช่องมาคูณกันแล้วนำค่าไปแสดงที่cells G2

ลองแล้วครับมันดูรู้ว่าrun นะครับแต่ค่าไม่ได้ถูกส่งมาครับ

รบกวนถามอีกหน่อยครับถ้าผมอยากให้มันรับค่าจากrange("r8")ไปแสดงที่range("d1")
ผมพิมcodeแบบนี้ได้ไหมครับ

ครับผม ขอบคุณครับที่ช่วยดูให้ผม

ขอโทษครับที่ผมอธิบายไม่ละเอียดครับโดยอย่างที่คุณเคยบอกครับมันจาเป็นเพียงแค่การเอาค่ามาป้อนสู้หน้าสุดท้ายที่ลิงค์ไปแต่ในmacro แต่ละsheetครับจะมีการป้อนรับค่าเพื่อคำนวณหาค่าP Tไหม่เสมอครับคือถ้าผมใช้codeตามคุณว่ามันจะไม่มีการรับค่าไหม่ครับ ผมขอความกรุณาคุณลองrunในsheet อื่นครับผมว่าคุณน่าจะเข้าใจครับ ...

Sub Macro1()
'
' Macro1 Macro
'
Dim i As Integer
On Error Resume Next
With Sheets("nitrogen")
For i = 1 To 109
If i = 1 Then
Rpipe = InputBox("input rpipe")
.Range("r16") = Rpipe
Pinttank1 = InputBox("input P1int")
.Range("r1") = Pinttank1
r1 = InputBox("input R1")
.Range("r14") = r1 ...

command bottom ชื่อ nitrogen link macro ไปที่sheet nitrogen
command bottom ชื่อ oxygen link macro ไปที่sheet oxygen
command bottom ชื่อ hydrogen link macro ไปที่sheet hydrogen
command bottom ชื่อ argon link macro ไปที่sheet argon
command bottom ชื่อclear screen อยากทำการล้างข้อมูลในช่องd1:d6

ในsheet 2 จะใส่macro ที่ใช้ำคำนวณค่าความดัน กับค่า heat โดยผมอยากทำการลิงค์combobox กับmacro เช่นเลือกความดันก็จาคำนวณค่าความดันได้
ในmacro จะมีให้ป้อนค่า n v t ตามลำดับเพื่อคำนวรหา P แล้วค่าที่ได้ไปแสดงค่าที่ output ที่sheet 1

ขอบคุณครับ

ในsheet 1 เมื่อทำการเลือกสารที่ต้องการปรากฏว่าโปรแกรมเตือนว่า complie error : end if without blok if

ในเอกสารhydrogen กับ oxygen ผมใส่คำสั่งmacro ไว้และในcell h2 ผมทำ pick form drop down listไว้ คือผมอยากทำlink
เช่น ถ้าผมเลือกhydrogen ให้run macro จากsheet hydrogen แล้วทำการส่งค่าจากsheet hydrogen จาก cell r8-r13 ครับไปยังในsheet1ที่cell d2-d6ครับ

คือผมต้องการเขียนเขียนคำสั่งแมโคที่เอกสาร1ที่สามารถสั่งให้เอกสารที่เหลือสามารถrunค่าได้ครับโดยเอกสารที่เหลือซึ่งมีการเขียนแมรโครด้วยเหมือนกันครับ

คือผมหาวิธีการเขียนmacroที่สามารถสั่งให้อีก 2 เอกสารที่มีคำสั่งmacroสามารถrunได้พร้อมกันโดยสั่งจากsheet 1

ครับขอบคุณครับ

ผมใช้คำสั่ง vlookup ในการlinkหาค่าจากเอกสาร sheet1 และ sheet 2 ซึ่งสามารถลืงค์ได้เพียงค่าเดียวและค่าอื่นไม่สามารถแสดงค่าได้

ขอบคุณครับ โปรแกรมสามารถrunได้แล้วครับ

ผมทำasign macro แล้ว มันเกิดerror ครับถ้าลองลบคำสั่งgoal seek ในvba โปรแกรมจาสามารถรันได้ครับแต่จะไม่สามารถคำนวณได้เหมือน