Åã¥Ü²Ä¤@Ó¦r½Ð°Ýn¦p¦óק鷺®e
- ©«¤l
- 53
- ¥DÃD
- 16
- ºëµØ
- 0
- ¿n¤À
- 74
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- OFFICE 2000
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-6
- ³Ì«áµn¿ý
- 2015-12-10
|
¸ê®Æ·j´M«ü©w¥ÑP4¨ìAF25Àx¦s®æ°ÝÃD
¸ê®Æ·j´M.rar (14.17 KB)
Private Sub ComboBox1_Change()
Dim A As Range
Set d = CreateObject("Scripting.Dictionary")
With ActiveSheet
.Cells.Interior.ColorIndex = xlNone
For Each A In .UsedRange
If A = ComboBox1.Text Then d(A.Address(0, 0, xlA1)) = "": A.Interior.ColorIndex = 6
Next
End With
Unload Me
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Set d = CreateObject("Scripting.Dictionary")
With ActiveSheet
For Each A In .UsedRange
If A <> "" Then d(A.Value) = ""
Next
Label1.Caption = .Name
.Cells.Interior.ColorIndex = xlNone
End With
ComboBox1.List = d.keys
End Sub
«ü©w¥u±qP4·j´M¨ìAF25Àx¦s®æ¬°¤î½Ð¦U¦ì«ü±ÐÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 53
- ¥DÃD
- 16
- ºëµØ
- 0
- ¿n¤À
- 74
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- OFFICE 2000
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-6
- ³Ì«áµn¿ý
- 2015-12-10
|
¦^´_ 1# gca78000
ÁÂÁ¤j¤j«ü¾É¤p§Ì·Ð½Ð¦b«ü¾É¤@¤U
¦p¥un´MP4:P25¤ÎR4¨ìR25¤ÎT4¨ìT25¤ÎV4¨ìV25
n¦p¦ó§ï½Ð«ü¾ÉÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 53
- ¥DÃD
- 16
- ºëµØ
- 0
- ¿n¤À
- 74
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- OFFICE 2000
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-6
- ³Ì«áµn¿ý
- 2015-12-10
|
¥»©«³Ì«á¥Ñ gca78000 ©ó 2015-11-19 13:42 ½s¿è
¦^´_ 3# gca78000
©m¤ó·j´M.rar (15.52 KB)
½Ð°Ý¦p¤UPrivate Sub ComboBox1_Change()
Dim A As Range
Set d = CreateObject("Scripting.Dictionary")
With ActiveSheet
.Cells.Interior.ColorIndex = xlNone
For Each A In .Range("P4:P25,R4:R25,T4:T25,V4:V25")
If A = ComboBox1.Text Then d(A.Address(0, 0, xlA1)) = "": A.Interior.ColorIndex = 6
Next
End With
Unload Me
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Set d = CreateObject("Scripting.Dictionary")
With ActiveSheet
For Each A In .Range("P4:P25,R4:R25,T4:T25,V4:V25")
If A <> "" Then d(A.Value) = ""
Next
Label1.Caption = .Name
.Cells.Interior.ColorIndex = xlNone
End With
ComboBox1.List = d.keys
End Sub
P4:P25¥i·j´M¨ì¦ÓR4:R25«á«o»`´M¤£¨ì½Ð«ü¾ÉÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 53
- ¥DÃD
- 16
- ºëµØ
- 0
- ¿n¤À
- 74
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- OFFICE 2000
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-6
- ³Ì«áµn¿ý
- 2015-12-10
|
¦^´_ 4# gca78000 ½Ð°Ý¦U¦ì
¦p¥un·j´M³æ©m¤ón¦p¦óקï½Ð«ü¾ÉÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 53
- ¥DÃD
- 16
- ºëµØ
- 0
- ¿n¤À
- 74
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- OFFICE 2000
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-6
- ³Ì«áµn¿ý
- 2015-12-10
|
Åã¥Ü²Ä¤@Ó¦r½Ð°Ýn¦p¦óק鷺®e
©m¤ó·j´M.rar (15.81 KB)
½Ð°Ý¦U¦ì°ª¤â¦p¤U¦Cµ{¦¡½X¦pªG¥unÅã¥Ü²Ä¤@Ó¦r½Ð°Ýn¦p¦óק鷺®e
Private Sub ComboBox1_Change()
Dim A As Range
Set d = CreateObject("Scripting.Dictionary")
With ActiveSheet
.Cells.Interior.ColorIndex = xlNone
For Each A In .Range("P4:P25,R4:R25,T4:T25,V4:V25")
If A = ComboBox1.Text Then d(A.Address(0, 0, xlA1)) = "": A.Interior.ColorIndex = 6
Next
End With
Unload Me
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Set d = CreateObject("Scripting.Dictionary")
With ActiveSheet
For Each A In .Range("P4:P25,R4:R25,T4:T25,V4:V25")
If A <> "" Then d(A.Value) = ""
Next
Label1.Caption = .Name
.Cells.Interior.ColorIndex = xlNone
End With
ComboBox1.List = d.keys
End Sub |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 6# gca78000
¸Õ¸Õ¬Ý- Option Explicit
- Dim d As Object, Rng As Range '¨p¥ÎÅܼÆ,¶È³o¼Ò²Õ¥i¥Î
- Private Sub UserForm_Initialize()
- Dim A As Range, M As String
- Set d = CreateObject("Scripting.Dictionary")
- With Sheets("¬d¸ß°Ï")
- Set Rng = .Range("P4:P25,R4:R25,T4:T25,V4:V25")
- Label1.Caption = .Name
- .Cells.Interior.ColorIndex = xlNone
- End With
- For Each A In Rng
- M = Mid(A, 1, 1)
- If M <> "" Then
- If d.exists(M) Then '¦r¨åª«¥óªºKey¦s¦b(¤w¨Ï¥Î)
- Set d(M) = Union(A, d(M)) 'Set:³]©w¬°ª«¥ó , A As Range
- Else
- Set d(M) = A
- End If
- End If
- Next
- ComboBox1.List = d.keys
- End Sub
- Private Sub ComboBox1_Change()
- Rng.Interior.ColorIndex = xlNone
- d(ComboBox1.Text).Interior.ColorIndex = 6
- End Sub
½Æ»s¥N½X vbaªº»¡©ú- Mid ³¯z¦¡ ±N¤@ Variant (String) ÅܼƤ¤¬Y¼Æ¶qªº¦r¤¸¥H¨ä¥L¦r¦ê¦r¤¸´À¥N¡C
- Mid ³¯z¦¡½d¨Ò
- ¥»½d¨Ò¨Ï¥Î Mid ³¯z¦¡±N¬Y¦r¦ê¤¤ªº´XÓ¦r¤¸¸m´«¬°¨ä¥¦ªº¦r¤¸¡C
- Dim MyString
- MyString = "The dog jumps" ' ³]©w¦r¦êªìÈ¡C
- Mid(MyString, 5, 3) = "fox" ' MyString = "The fox jumps"¡C
- Mid(MyString, 5) = "cow" ' MyString = "The cow jumps"¡C
- Mid(MyString, 5) = "cow jumped over" ' MyString = "The cow jumpe"¡C
- Mid(MyString, 5, 3) = "duck" ' MyString = "The duc jumpe"¡C
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 53
- ¥DÃD
- 16
- ºëµØ
- 0
- ¿n¤À
- 74
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- OFFICE 2000
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-6
- ³Ì«áµn¿ý
- 2015-12-10
|
¦^´_ 7# GBKEE
·PÁª©¥D¥Î¤ß¸Ñµª¤p§Ì¨ü±Ð¤FÁÂÁª©¤j·P®¦§A |
|
|
|
|
|
|