Sut i ganiatáu i rifau yn unig gael eu mewnbynnu yn y blwch testun?
Yn Excel, gallwn gymhwyso'r swyddogaeth Dilysu Data i ganiatáu dim ond rhifau sy'n cael eu rhoi mewn celloedd, ond, weithiau, rwyf am i rifau yn unig gael eu teipio i mewn i flwch testun yn ogystal ag mewn celloedd. Sut i dderbyn rhifau yn unig mewn blwch testun yn Excel?
Rhannwch ystod o gelloedd â rhif â swyddogaeth Gludo Arbennig
Rhannwch ystod o gelloedd â rhif â swyddogaeth Gludo Arbennig
Gall y cod VBA canlynol eich helpu i nodi rhifau, cyfnod (.) Ac arwydd negyddol yn unig mewn blwch testun, gwnewch fel hyn:
1. Creu blwch testun trwy glicio Datblygwr > Mewnosod > Blwch Testun (Rheoli ActiveX), ac yna lluniwch flwch testun yn ôl yr angen, gweler y screenshot:
2. Yna cliciwch ar y dde ar y blwch testun a dewis Gweld y Cod o'r ddewislen cyd-destun i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, ac yna disodli'r cod gwreiddiol gyda'r cod VBA canlynol yn y modiwl gwag:
Cod VBA: Caniatáu i rifau yn unig gael eu mewnbynnu i'r blwch testun:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
If KeyAscii = Asc("-") Then
If InStr(1, Me.TextBox1.Text, "-") > 0 Or _
Me.TextBox1.SelStart > 0 Then KeyAscii = 0
ElseIf KeyAscii = Asc(".") Then
If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0
Else
KeyAscii = 0
End If
End If
End Sub
3. Yna arbedwch a chau ffenestr y cod, ac ewch allan o'r Modd Dylunio, nawr, dim ond rhifau, symbol cyfnod ac arwydd negyddol y gellir eu rhoi yn y blwch testun, gweler y screenshot:
Erthyglau cysylltiedig:
Sut i gymhwyso gwiriad sillafu yn y blwch testun?
Sut i newid lliw blwch testun yn seiliedig ar werth yn Excel?
Sut i fewnosod llun yn y blwch testun?
Sut i osod gwerth diofyn mewn blwch testun?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!