Snasui Excel Forum

Code: Select all

Sub Preview()

'Define abbreviations for worksheets
    Dim WI As Worksheet
    Dim WF As Worksheet
    Set WI = Worksheets("Input")
    Set WF = Worksheets("Forms")
      
    
     WF.Range("F1Detail") = "=IF(InputDetail=""โรงเรียน"",""[?] โรงเรียน [   ]สถานีตำรวจ [   ]โรงพยาบาล [   ]ร้านค้า [   ]อนามัย [   ]อื่น ๆ "",IF(InputDetail=""สถานีตำรวจ"",""[   ] โรงเรียน [ ?]สถานีตำรวจ [   ]โรงพยาบาล [   ]ร้านค้า [   ]อนามัย [   ]อื่น ๆ "",IF(InputDetail=""โรงพยาบาล"",""[   ] โรงเรียน [     ]สถานีตำรวจ [ ?]โรงพยาบาล [   ]ร้านค้า [   ]อนามัย [   ]อื่น ๆ "",IF(InputDetail=""ร้านค้า"",""[   ] โรงเรียน [     ]สถานีตำรวจ  [     ]โรงพยาบาล  [ ?]ร้านค้า [   ]อนามัย [   ]อื่น ๆ "",IF(InputDetail=""อนามัย"",""[   ] โรงเรียน [     ]สถานีตำรวจ  [     ]โรงพยาบาล [   ]ร้านค้า [ ?]อนามัย [   ]อื่น ๆ "",IF(InputDetail=""อื่นๆ"",""[   ] โรงเรียน [     ]สถานีตำรวจ  [     ]โรงพยาบาล [   ]ร้านค้า [   ]อนามัย [ ?] อื่น ๆ"",""""))))))"
    
    
    End Sub
    

Code: Select all

Private Sub OptionButton1_Click()
    If OptionButton1.Value = True Then Sheets("Input").Range("E3").Value = "โรงเรียน"
    strOriginal = "[ ] โรงเรียน"
    strReplace = "[" & Chr(149) & "] โรงเรียน"
    ComboBox1.Visible = False
End Sub
'Other code

Code: Select all

Public strOriginal As String
Public strReplace As String
Dim str As String

Sub Preview()
    str = "[ ] โรงเรียน" & _
        Chr(10) & "[ ] สถานีตำรวจ" & _
        Chr(10) & "[ ] โรงพยาบาล" & _
        Chr(10) & "[ ] ร้านค้า" & _
        Chr(10) & "[ ] อนามัย" & _
        Chr(10) & "[ ] อื่น ๆ"
        str = VBA.Replace(str, strOriginal, strReplace)
    'Define abbreviations for worksheets
        Dim WI As Worksheet
        Dim WF As Worksheet
        Set WI = Worksheets("Input")
        Set WF = Worksheets("Forms")
        
'         WF.Range("F1Detail") = "=IF(InputDetail=""โรงเรียน"",""[?] โรงเรียน [   ]สถานีตำรวจ [   ]โรงพยาบาล [   ]ร้านค้า [   ]อนามัย [   ]อื่น ๆ "",IF(InputDetail=""สถานีตำรวจ"",""[   ] โรงเรียน [ ?]สถานีตำรวจ [   ]โรงพยาบาล [   ]ร้านค้า [   ]อนามัย [   ]อื่น ๆ "",IF(InputDetail=""โรงพยาบาล"",""[   ] โรงเรียน [     ]สถานีตำรวจ [ ?]โรงพยาบาล [   ]ร้านค้า [   ]อนามัย [   ]อื่น ๆ "",IF(InputDetail=""ร้านค้า"",""[   ] โรงเรียน [     ]สถานีตำรวจ  [     ]โรงพยาบาล  [ ?]ร้านค้า [   ]อนามัย [   ]อื่น ๆ "",IF(InputDetail=""อนามัย"",""[   ] โรงเรียน [     ]สถานีตำรวจ  [     ]โรงพยาบาล [   ]ร้านค้า [ ?]อนามัย [   ]อื่น ๆ "",IF(InputDetail=""อื่นๆ"",""[   ] โรงเรียน [     ]สถานีตำรวจ  [     ]โรงพยาบาล [   ]ร้านค้า [   ]อนามัย [ ?] อื่น ๆ"",""""))))))"
        WF.Range("F1Detail").Value = str
End Sub

Code: Select all

Private Sub OptionButton6_Click()
If OptionButton6.Value = True Then Sheets("Input").Range("E3").Value = "อื่นๆ"
    strOriginal = "[ ] อื่นๆ"
    strReplace = "[" & Chr(149) & "] อื่นๆ" & "-" & Sheets("Input").Range("E15").Value
ComboBox1.Visible = True
End Sub

Code: Select all

Private Sub OptionButton6_Click()
    If OptionButton6.Value = True Then Sheets("Input").Range("E3").Value = "อื่นๆ"
    Me.Range("E15").Value = InputBox("Please fill your option.")
    strOriginal = "[ ] อื่นๆ"
    strReplace = "[" & Chr(149) & "] อื่นๆ" & "-" & Sheets("Input").Range("E15").Value
'    ComboBox1.Visible = True
End Sub

Code: Select all

Sub Clear()
    With Worksheets("Input")
        .Range("InputName").Value = ""
        .Range("E15").Value = ""
        .OptionButton1.Value = True
        .OptionButton2.Value = False
        .OptionButton3.Value = False
        .OptionButton4.Value = False
        .OptionButton5.Value = False
        .OptionButton6.Value = False
        .OptionButton7.Value = True
        .OptionButton8.Value = False
        .OptionButton9.Value = False
        .OptionButton10.Value = False
    End With
    strOriginal = "[ ] โรงเรียน"
    strReplace = "[" & Chr(149) & "] โรงเรียน"
    strOriginal1 = "[ ] ฟ้า"
    strReplace1 = "[" & Chr(149) & "] ฟ้า"
End Sub