snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Form1.Show()
Me.Hide()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Form1.Show()
Me.Hide()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
InFile = OpenFileDialog1.SafeFileName
Label2.Text = InFile
Else
Label2.Text = "ยังไม่กำหนดไฟล์ตัวอย่าง"
End If
End Sub
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
SaveFile = OpenFileDialog1.SafeFileName
Label3.Text = SaveFile
Else
Label3.Text = "ยังไม่กำหนดไฟล์ตัวอย่าง"
End If
End Sub
Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click