Skip i'r prif gynnwys

Sut i rifo'r celloedd â llythrennau yn nhrefn yr wyddor yn Excel?

Yn Excel, gallwn rifo'r celloedd â chyfresi rhif fel 1, 2, 3 ... trwy ddefnyddio'r handlen autofill, ond sut allwch chi rifo celloedd â llythrennau yn nhrefn yr wyddor A, B, C…? Yn y tiwtorial hwn, rwy'n cyflwyno rhai ffyrdd o drin y swydd hon yn Excel.

Rhifo celloedd â llythyren yn nhrefn yr wyddor â fformiwla

Rhifo celloedd â llythyren yn nhrefn yr wyddor gyda chod VBA

Rhifo celloedd gyda gyda Kutools ar gyfer Excelsyniad da3


Mewnosodwch fwledi neu rifau lluosog mewn rhediadge

Yn Excel, mae angen i chi fewnosod y bwledi neu eu rhifo fesul un, ond gyda'r teclyn defnyddiol hwn, Kutools ar gyfer Excel's Mewnosod Bwled ac Mewnosod Nmbering cyfleustodau, gallwch fewnosod bwledi neu rifo yn gyflym
i'r celloedd a ddewiswyd ar unwaith ..  Cliciwch am 60 diwrnod o dreial am ddim!
mewnosod doc rhif bwled
 
Kutools ar gyfer Excel: gyda mwy na 200 o ychwanegion Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 60 diwrnod.

Rhifo celloedd â llythyren yn nhrefn yr wyddor â fformiwla

1. Teipiwch bob llythyren rydych chi am ei defnyddio i rifo celloedd mewn rhestr wrth ymyl y celloedd rydych chi am eu rhifo.
rhif doc gyda llythyren 1

Os oes gennych Kutools ar gyfer Excel, Llenwch Restrau Custom mae cyfleustodau yn eich cefnogi i greu rhestr o ystod, yna gallwch fewnosod y rhestr newydd yn unrhyw le sydd ei angen arnoch heb eu haildeipio fesul un.  Cliciwch am 60 diwrnod o dreial am ddim!
rhif doc gyda llythyren 2

2. Dewiswch gell sy'n gyfagos i'r llythrennau a chynnwys y gell rydych chi am ei rhifo, teipiwch y fformiwla hon = A1 & "." A B1, llusgwch handlen llenwi i lawr i lenwi'r fformiwla i'r holl gelloedd sydd eu hangen arnoch chi.
rhif doc gyda llythyren 3


Rhifo celloedd â llythyren yn nhrefn yr wyddor gyda chod VBA

Os ydych chi'n gyfarwydd â chodau macro, gallwch chi wneud fel y rhain:

1. Gwasgwch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr. Cliciwch Mewnosod > Modiwlau.

2. Copïo a gludo islaw'r cod i'r Modiwlau sgript.

VBA: rhifo gydag A.

Sub Prefix_A()
'UpdatebyExtendoffice20180828
Dim xRg As Range
Dim xStrPrefix As String
xStrPrefix = "A."
On Error Resume Next
Application.ScreenUpdating = False
For Each xRg In Selection
    If xRg.Value <> "" Then
        xRg.Value = xStrPrefix & xRg.Value
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Yna ailadrodd pastiwch y cod a newid A i B neu C neu D yn ôl yr angen.
rhif doc gyda llythyren 4

4. Arbedwch y cod a chau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

5. Dewiswch y celloedd rydych chi am eu rhifo gydag A, a chliciwch Datblygwr > Macros.
rhif doc gyda llythyren 5

6. Yn Macro deialog, dewiswch y cod Rhagddodiad_A a chliciwch Run.
rhif doc gyda llythyren 6

7. Mae'r dewis wedi'u rhifo ag A.
rhif doc gyda llythyren 7

8. Ailadroddwch gam 5 a 6 i rifo'r celloedd â llythyren benodol yn ôl yr angen.


Rhifo celloedd gyda Kutools ar gyfer Excel

Os oes gennych chi Kutools ar gyfer Excel, gallwch chi rifo celloedd yn gyflym.

Kutools ar gyfer Excel, gyda mwy na 200 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel isod:(Lawrlwythiad Am Ddim Kutools ar gyfer Excel Nawr!)

Dewiswch y celloedd rydych chi am eu rhifo, yna cliciwch Kutools > Mewnosod > Mewnosod Rhifo, dewiswch un math sydd ei angen arnoch chi.
rhif doc gyda llythyren 8

Yna ychwanegwyd rhifau i'r celloedd.
rhif doc gyda llythyren 9

Pori tabbed a golygu nifer o lyfrau gwaith Excel / dogfennau Word fel Firefox, Chrome, Internet Explore 10!

Efallai y byddwch yn gyfarwydd i weld tudalennau gwe lluosog yn Firefox/Chrome/IE, a newid rhyngddynt drwy glicio tabiau cyfatebol yn hawdd. Yma, mae Office Tab yn cefnogi prosesu tebyg, sy'n eich galluogi i bori trwy lyfrau gwaith Excel lluosog neu ddogfennau Word mewn un ffenestr Excel neu ffenestr Word, a newid yn hawdd rhyngddynt trwy glicio ar eu tabiau. Cliciwch am ddim 30- treial diwrnod o Office Tab!

ot rhagori

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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...

Disgrifiad


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Sub Alphabetic_Numbering()
Dim InputRng As Range, Start As Integer, Cell As Range, Start1 As Integer, Rowsx As Integer, Double_Start As Integer
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range", xTitleId, InputRng.Address, Type:=8)

Start = 65
Rowsx = InputRng.Rows.Count


For i = 1 To Rowsx
If i < 27 Then
InputRng.Cells(i, 1).Value = Chr(Start) & ". " & InputRng.Cells(i, 1).Value
Start = Start + 1
End If

roundupUnitcount = Application.WorksheetFunction.RoundUp(i / 26, 0) - 1
If Start > 90 Then
Start = Start - 26
End If
Double_Start = 64 + roundupUnitcount
If i > 26 Then
InputRng.Cells(i, 1).Value = Chr(Double_Start) & Chr(Start) & ". " & InputRng.Cells(i, 1).Value
InputRng.Cells(i, 2).Value = Start
Start = Start + 1
End If
Next i
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations