Skip i'r prif gynnwys

Sut i Arbed a Defnyddio Eich Macros VBA ym mhob Llyfr Gwaith yn Excel?

Mewn rhai achosion, efallai y bydd angen i chi ddefnyddio un macro VBA sawl gwaith yn y dyfodol. A yw'n bosibl i arbedwch y modiwl VBA i unrhyw ddogfen newydd felly bydd ar gael ym mhob gweithlyfr? Yr ateb yw ydy. Yn y tiwtorial hwn, byddwn yn cyflwyno ffordd hawdd o gyflawni'ch nod.
doc arbed-defnyddio-vba-macros-yn-holl-llyfrau gwaith 1

Cadw a Defnyddio'r Cod VBA ym mhob Llyfr Gwaith


Cadw a Defnyddio'r Cod VBA ym mhob Llyfr Gwaith

Er enghraifft, rydych chi am ddefnyddio'r cod VBA i trosi rhifau i eiriau Saesneg ac arbed y modiwl VBA ym mhob llyfr gwaith rhag ofn eich bod am ddefnyddio'r cod VBA yn y dyfodol. Gwnewch fel a ganlyn.

1. Gwasgwch y Alt + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau a gludwch y macro canlynol yn Ffenestr y Modiwl.

Cod VBA: Trosi rhifau i eiriau

Function NumberstoWords(ByVal MyNumber)
'Update by Extendoffice
Dim xStr As String
Dim xFNum As Integer
Dim xStrPoint
Dim xStrNumber
Dim xPoint As String
Dim xNumber As String
Dim xP() As Variant
Dim xDP
Dim xCnt As Integer
Dim xResult, xT As String
Dim xLen As Integer
On Error Resume Next
xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP > 0 Then
xPoint = " point "
xStr = Mid(xNumber, xDP + 1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum = 1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum, 1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNum
xNumber = Trim(Left(xNumber, xDP - 1))
End If
xCnt = 0
xResult = ""
xT = ""
xLen = 0
xLen = Int(Len(Str(xNumber)) / 3)
If (Len(Str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1
Do While xNumber <> ""
If xLen = xCnt Then
xT = GetHundredsDigits(Right(xNumber, 3), False)
Else
If xCnt = 0 Then
xT = GetHundredsDigits(Right(xNumber, 3), True)
Else
xT = GetHundredsDigits(Right(xNumber, 3), False)
End If
End If
If xT <> "" Then
xResult = xT & xP(xCnt) & xResult
End If
If Len(xNumber) > 3 Then
xNumber = Left(xNumber, Len(xNumber) - 3)
Else
xNumber = ""
End If
xCnt = xCnt + 1
Loop
xResult = xResult & xPoint
NumberstoWords = xResult
End Function
Function GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As String
Dim xStrNum As String
Dim xStr As String
Dim xI As Integer
Dim xBB As Boolean
xStrNum = xHDgt
xRStr = ""
On Error Resume Next
xBB = True
If Val(xStrNum) = 0 Then Exit Function
xStrNum = Right("000" & xStrNum, 3)
xStr = Mid(xStrNum, 1, 1)
If xStr <> "0" Then
xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred "
Else
If xB Then
xRStr = "and "
xBB = False
Else
xRStr = " "
xBB = False
End If
End If
If Mid(xStrNum, 2, 2) <> "00" Then
xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB)
End If
GetHundredsDigits = xRStr
End Function
Function GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As String
Dim xI As Integer
Dim xArr_1() As Variant
Dim xArr_2() As Variant
Dim xT As Boolean
xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = True
On Error Resume Next
If Val(Left(xTDgt, 1)) = 1 Then
xI = Val(Right(xTDgt, 1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
Else
xI = Val(Left(xTDgt, 1))
If Val(Left(xTDgt, 1)) > 1 Then
If xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt, 1)))
xT = False
End If
If xStr = "" Then
If xB Then
xStr = "and "
End If
End If
If Right(xTDgt, 1) <> "0" Then
xStr = xStr & GetDigits(Right(xTDgt, 1))
End If
End If
GetTenDigits = xStr
End Function
Function GetDigits(xDgt)
Dim xStr As String
Dim xArr_1() As Variant
xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume Next
xStr = xArr_1(Val(xDgt))
GetDigits = xStr
End Function

3. Cliciwch ar y Save eicon yng nghornel chwith uchaf y rhuban neu cliciwch Ctrl + S i agor y Save As ffenestr.doc arbed-defnyddio-vba-macros-yn-holl-llyfrau gwaith 2

4. Yn y Save As ffenestr, mewnbwn enw'r llyfr gwaith yn y enw ffeil bocs. A dewiswch y Ychwanegyn Excel (*.xlam) opsiwn yn y Cadw fel math rhestr ostwng.
doc arbed-defnyddio-vba-macros-yn-holl-llyfrau gwaith 3

5. Yna cliciwch y Save botwm i achub y llyfr gwaith gyda chod VBA fel Ychwanegiad Excel.
doc arbed-defnyddio-vba-macros-yn-holl-llyfrau gwaith 4

6. Yn ôl i'r Excel, cau'r llyfr gwaith gwag sydd wedi'i gadw fel Ychwanegiad Excel.

7. Agor llyfr gwaith newydd gyda data sydd eu hangen i'w trosi. Mewnbynnu'r fformiwla = NumberstoWords (A2) yng nghell B2. Mae'r # ENW? bydd gwerth gwall yn cael ei ddychwelyd oherwydd nad yw cod VBA wedi'i gymhwyso ym mhob llyfr gwaith eto.
doc arbed-defnyddio-vba-macros-yn-holl-llyfrau gwaith 5

8. Ewch i Datblygwr tab, cliciwch Ychwanegiadau Excel yn y Add-ins grŵp.
doc arbed-defnyddio-vba-macros-yn-holl-llyfrau gwaith 6

9. Mae'r Ychwanegu i fewn blwch deialog yn ymddangos. Cliciwch y Pori botwm.
doc arbed-defnyddio-vba-macros-yn-holl-llyfrau gwaith 7

10. Dewiswch y Ychwanegu-yn yr ydych newydd ei gadw, yna cliciwch ar y OK botwm.
doc arbed-defnyddio-vba-macros-yn-holl-llyfrau gwaith 8

11. Yna y Trosi Rhif I Geiriau Ychwanegiad rydych chi wedi'i addasu yn cael ei fewnosod a'i droi ymlaen. Cliciwch ar y OK botwm i orffen y gosodiad.
doc arbed-defnyddio-vba-macros-yn-holl-llyfrau gwaith 9

12. Nawr pan fyddwch chi'n mewnbynnu'r fformiwla = NumberstoWords (A2) yng nghell B2 a gwasgwch y Rhowch allweddol, bydd y geiriau Saesneg cyfatebol yn cael eu dychwelyd. Llusgwch y ddolen autofill i lawr i gael yr holl ganlyniadau.
doc arbed-defnyddio-vba-macros-yn-holl-llyfrau gwaith 10

Nodiadau:

Os oes angen i chi redeg y cod â llaw, nid oes unrhyw ffordd i ddod o hyd iddo o'r camau uchod. Peidiwch â phoeni os gwelwch yn dda. Mae yna dwy ffordd i redeg y cod.

  1. Gallwch ychwanegu cod at y Bar Offer Cyflym a rhedeg y cod bob tro y bydd y botwm cod yn cael ei glicio ar y bar offer.
    doc arbed-defnyddio-vba-macros-yn-holl-llyfrau gwaith 11
  2. Gallwch hefyd wasgu'n uniongyrchol Alt + F11 i agor y blwch gweithredu cod, dod o hyd i'r cod, a phwyso F5 i redeg.

Gweithrediadau Eraill (Erthyglau)

Cod VBA I Restru Pawb Ychwanegu Mewn Excel
Yn Excel, gallwch ychwanegu neu fewnosod rhywfaint o ychwanegiadau er mwyn delio'n well â data. Fel y gwyddom, gallwn fynd i'r ffenestr Opsiynau i weld pob ychwanegiad, ond a oes unrhyw ffordd i restru'r holl ychwanegiadau mewn dalen? Nawr, yn y tiwtorial hwn, mae'n darparu cod VBA ar gyfer rhestru'r holl ychwanegiadau yn Excel.

Sut i Rhedeg Macro VBA Pan Ar Agor Neu Cau'r Llyfr Gwaith?
Yn yr erthygl hon, byddaf yn dweud wrthych sut i redeg y cod VBA wrth agor neu gau'r llyfr gwaith bob tro.

Sut i Ddiogelu / Cloi Cod VBA Yn Excel?
Yn union fel y gallwch chi ddefnyddio cyfrinair i ddiogelu llyfrau gwaith a thaflenni gwaith, gallwch hefyd osod cyfrinair ar gyfer amddiffyn y macros yn Excel.

Sut i Ddefnyddio Oedi Amser Ar ôl Rhedeg Macro VBA Yn Excel?
Mewn rhai achosion, efallai y bydd angen i chi wneud oedi amserydd ar gyfer sbarduno Macro VBA yn Excel. Er enghraifft, wrth glicio i redeg macro penodol, bydd yn dod i rym ar ôl 10 eiliad. Bydd yr erthygl hon yn dangos dull i chi ei gyflawni.

 


  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau a Cadw Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi Dyblyg a Swm / Cyfartaledd... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Fformiwlâu Hoff a Mewnosod yn Gyflym, Meysydd, Siartiau a Lluniau; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Grwpio Tabl Pivot yn ôl rhif wythnos, diwrnod o'r wythnos a mwy ... Dangos Celloedd Datgloi, wedi'u Cloi yn ôl gwahanol liwiau; Amlygu Celloedd sydd â Fformiwla / Enw...
tab kte 201905
  • 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!
gwaelod officetab

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you very much hundred timessss
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations