Hỏi về Inputbox? (1 người xem)

[emgaingayngo]

Các bạn cho emgaingayngo hỏi mình bị sai ở đâu trong đọan code sau mà Cell A1 không nhận được giá trị khi nhập ký tự vào inputbox?

Private Sub Thu()
Dim KyTu As String
KyTu = Application.InputBox("Xin Dien Ky Tu ", DienKyTu, , , , , , 2)
If vbCancel Then
Exit Sub
Else
KyTu = UCase(KyTu)
Range("A1").Value = KyTu
End If
End Sub

 

[Po_Pikachu]

Private Sub Thu() Dim KyTu As String KyTu = Application.InputBox("Xin Dien Ky Tu: ", [COLOR=red]"DienKyTu"[/COLOR], , , , , 2) [COLOR=red]If KyTu = "False" Then [/COLOR]Exit Sub Else KyTu = UCase(KyTu) Range("A1").Value = KyTu End If End Sub

Sửa lại như vầy được không?

 

[emgaingayngo]

Thank you!
Lúc đó Cell A1 có giá trị là "FASLE", nhưng mình muốn khi bấm vào nút CANCEL thì giá trị mặc định của nó khác "FASLE", là "GPE" chẳng hạn.

Private Sub Thu()
Dim KyTu As String
KyTu = Application.InputBox("Xin Dien Ky Tu ", DienKyTu, , , , , , 2)
If KyTu = "Fasle" Then
Range("A1").Value = "GPE"
Exit Sub
Else
KyTu = UCase(KyTu)
Range("A1").Value = KyTu
End If
End Sub
Mình thêm vào dòng lệnh như trên nhưng không được!!!

 

[Po_Pikachu]

Sai phải rồi, bạn đánh vần False thành Fasle mà! Bạn sữa lại thì chạy liền. He.ha.he.ha..

 

[LumiereSolaire]

Dim s As String
s = InputBox("Cau thong bao", "Tieu De", "Gia tri mac dinh khi mo Input box")
If s <> "" Then
'Người dùng đã nhập vào một chuỗi khác null
Else
'Hoặc người dùng nhập vào chuỗi null hoặc người dùng nhấn cancel
End If

 

[ndtnv]

Private Sub Thu()
Dim KyTu As String
KyTu = Application.InputBox("Xin Dien Ky Tu: ", [COLOR=red]"DienKyTu"[/COLOR], , , , , 2)
[COLOR=red]If KyTu = "False" Then[/COLOR]
Exit Sub
Else
KyTu = UCase(KyTu)
Range("A1").Value = KyTu
End If
End Sub

Sửa lại như vầy được không?

Nếu nhập vào chuỗi "False" để ô A1 có giá trị "FALSE" thì không ổn rồi
Sửa lại như cách của LumiereSolaire thì tốt hơn

 

[hoangvuluan]

khai báo sai kiểu

Các bạn cho emgaingayngo hỏi mình bị sai ở đâu trong đọan code sau mà Cell A1 không nhận được giá trị khi nhập ký tự vào inputbox?

Private Sub Thu()
Dim KyTu As String
KyTu = Application.InputBox("Xin Dien Ky Tu ", DienKyTu, , , , , , 2)
If vbCancel Then
Exit Sub
Else
KyTu = UCase(KyTu)
Range("A1").Value = KyTu
End If
End Sub

Private Sub Thu()
Dim KyTu
    KyTu = Application.InputBox(Prompt:="Xin Dien Ky Tu ", Title:="DienKyTu", Type:=2 + 4)
    If KyTu = False Then
        Exit Sub
    Else
        Range("A1").Value = UCase(KyTu)
    End If
End Sub

Bạn sai do khai báo kiểu của biến KyTu bị sai, do đó câu lệnh If thực hiện sai ý đồ. Dùng kiểu Type = 6 (nghĩa là 2 + 4, với 2 là kiểu String, 4 là Logic) để biết được khi nào người dùng nhấn Cancel (hoặc ESC)

-hvl-

 

[binhkrb]

mình nhờ các bạn xem hộ đoạn code này nhé ý mình muốn thêm hàm inputbox nhận thông số pate dữ liệu sau khi lọc
Sub locM()
Dim mang As Range
Set mang = Application.InputBox("Qui nao day ?", Type:=8)
Application.ScreenUpdating = False
Columns("N:W").Select
Selection.Delete Shift:=xlToLeft
mang.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"DK"), CopyToRange:=Range("n6"), Unique:=True
Range("k3").Select
Application.ScreenUpdating = True
End Sub
mình làm hoài chằng được mong các bạn hướng dẫn
xin cảm ơn

 

[Po_Pikachu]

Bạn xem file này nha!
Thân.

 

[ndu96081631]

mình nhờ các bạn xem hộ đoạn code này nhé ý mình muốn thêm hàm inputbox nhận thông số pate dữ liệu sau khi lọc
Sub locM()
Dim mang As Range
Set mang = Application.InputBox("Qui nao day ?", Type:=8)
Application.ScreenUpdating = False
Columns("N:W").Select
Selection.Delete Shift:=xlToLeft
mang.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"DK"), CopyToRange:=Range("n6"), Unique:=True
Range("k3").Select
Application.ScreenUpdating = True
End Sub
mình làm hoài chằng được mong các bạn hướng dẫn
xin cảm ơn

Code này sao dài dòng quá... Tôi nghĩ chỉ cần 3 dòng là đủ:

Sub locM()
  With Application.InputBox("Vung nao day ?", Type:=8)
    .AdvancedFilter 2, Range("DK"), Application.InputBox("Paste vao dau ?", Type:=8)
  End With
End Sub

Đương nhiên phải đặt name DK trước khi chạy code ---> Còn không thì:

Sub locM()
  With Application.InputBox("Vung nao day ?", Type:=8)
    .AdvancedFilter 2, [H2:H3], Application.InputBox("Paste vao dau ?", Type:=8)
  End With
End Sub

Cần gì đặt biến cho mất công

 

[binhkrb]

xin cảm ơn các bạn rất nhiều

 

[man231186]

Anh ndu em hỏi thêm 1 chút, muốn input 1 đoạn văn bản dài có được không ạ?