Skip to main content

Conas do Macraí VBA a Shábháil agus a Úsáid i Gach Leabhar Oibre in Excel?

I gcásanna áirithe, b'fhéidir go mbeadh ort macra VBA amháin a úsáid go minic sa todhchaí. An féidir sábháil an modúl VBA ar aon doiciméad nua mar sin beidh sé ar fáil i ngach leabhar saothair? Is é an freagra tá. Sa rang teagaisc seo, tabharfaimid isteach bealach éasca chun do sprioc a bhaint amach.
doc sábháil-úsáid-vba-macros-i-uile-leabhair oibre 1

Sábháil agus Úsáid an Cód VBA i Gach Leabhar Oibre


Sábháil agus Úsáid an Cód VBA i Gach Leabhar Oibre

Mar shampla, ba mhaith leat an cód VBA a úsáid chun uimhreacha a thiontú go focail Bhéarla agus sábháil an modúl VBA i ngach leabhar oibre ar eagla go dteastaíonn uait an cód VBA a úsáid sa todhchaí. Déan mar seo a leanas le do thoil.

1. Brúigh an Alt + F11 eochracha in Excel, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. cliceáil Ionsáigh > Modúil agus greamaigh an macra seo a leanas i bhFuinneog an Mhodúil.

Cód VBA: Tiontaigh uimhreacha go focail

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. Cliceáil ar an Sábháil deilbhín sa chúinne uachtarach ar chlé den ribín nó cliceáil Ctrl + S. a oscailt Sábháil Mar fhuinneog.doc sábháil-úsáid-vba-macros-i-uile-leabhair oibre 2

4. Sa Sábháil Mar fhuinneog, cuir ainm an leabhair oibre isteach sa Ainm comhaid bosca. Agus roghnaigh an Breiseán Excel (*.xlam) rogha sa Ach amháin mar chineál liosta anuas.
doc sábháil-úsáid-vba-macros-i-uile-leabhair oibre 3

5. Ansin cliceáil ar an Sábháil cnaipe chun an leabhar oibre a shábháil le cód VBA mar Breiseán Excel.
doc sábháil-úsáid-vba-macros-i-uile-leabhair oibre 4

6. Ar ais go dtí an Excel, dún an leabhar oibre folamh atá sábháilte mar Bhreiseán Excel.

7. Oscail leabhar oibre nua le sonraí is gá a thiontú. Ionchur an fhoirmle = Uimhreacha Focail (A2) i gcill B2. Tá an # AINM? cuirfear luach earráide ar ais toisc nach bhfuil cód VBA curtha i bhfeidhm i ngach leabhar oibre fós.
doc sábháil-úsáid-vba-macros-i-uile-leabhair oibre 5

8. Téigh go dtí an Forbróir tab, cliceáil Breiseán Excel sa Cuir-ins ghrúpa.
doc sábháil-úsáid-vba-macros-i-uile-leabhair oibre 6

9. An Breiseán tagann bosca dialóige suas. Cliceáil ar an Brabhsáil cnaipe.
doc sábháil-úsáid-vba-macros-i-uile-leabhair oibre 7

10. Roghnaigh an Breiseán a shábháil tú díreach, ansin cliceáil ar an OK cnaipe.
doc sábháil-úsáid-vba-macros-i-uile-leabhair oibre 8

11. Ansin an Tiontaigh Uimhir Go Breiseán Focail chuir tú saincheaptha isteach agus cuirtear ar siúl é. Cliceáil ar an OK cnaipe chun an socrú a chríochnú.
doc sábháil-úsáid-vba-macros-i-uile-leabhair oibre 9

12. Anois nuair a ionchur tú an fhoirmle = Uimhreacha Focail (A2) i gcill B2 agus brúigh an Iontráil eochair, cuirfear na focail Bhéarla comhfhreagracha ar ais. Tarraing an láimhseáil uathoibríoch anuas chun na torthaí go léir a fháil.
doc sábháil-úsáid-vba-macros-i-uile-leabhair oibre 10

nótaí:

Más gá duit an cód a rith de láimh, níl aon bhealach ann é a fháil ó na céimeanna thuas. Ná bíodh imní ort le do thoil. Tá dhá bhealach chun an cód a rith.

  1. Is féidir leat cód a chur leis an Barra Uirlisí Tapa agus rith an cód gach uair a chliceáiltear ar an gcnaipe cóid ar an mbarra uirlisí.
    doc sábháil-úsáid-vba-macros-i-uile-leabhair oibre 11
  2. Is féidir leat brúigh go díreach freisin Alt + F11 chun an bosca oibríochta cód a oscailt, faigh an cód, agus brúigh F5 a rith.

Oibríochtaí Eile (Ailt)

Cód VBA Le Liosta Gach Cuir Leis In Excel
In Excel, féadfaidh tú roinnt breiseán a chur leis nó a chur isteach chun déileáil níos fearr le sonraí. Mar is eol dúinn, is féidir linn dul go dtí an fhuinneog Roghanna chun gach breiseán a fheiceáil, ach an bhfuil aon bhealach ann gach breiseán a liostáil i mbileog? Anois, sa rang teagaisc seo, soláthraíonn sé cód VBA chun gach breiseán in Excel a liostáil.

Conas Macra VBA a Rith Nuair a Osclaítear nó nuair a dhúnann an leabhar oibre?
San Airteagal seo, inseoidh mé duit conas an cód VBA a reáchtáil agus an leabhar oibre a oscailt nó a dhúnadh gach uair.

Conas Cód VBA a Chosaint / Glasáil In Excel?
Díreach mar is féidir leat pasfhocal a úsáid chun leabhair oibre agus bileoga oibre a chosaint, is féidir leat pasfhocal a shocrú freisin chun na macraí a chosaint in Excel.

Conas Moill Ama a Úsáid Tar éis Macra VBA a Rith In Excel?
I roinnt cásanna, b’fhéidir go mbeidh ort moill lasc ama a dhéanamh chun Macra VBA a spreagadh in Excel. Mar shampla, nuair a chliceálann tú chun macra sonraithe a rith, tiocfaidh sé i bhfeidhm tar éis 10 soicind. Taispeánfaidh an t-alt seo modh duit chun é a bhaint amach.

 


  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin agus Sonraí a Choinneáil; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna Dúblacha agus Suim / Meán... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Foirmlí is Fearr agus Cuir isteach go tapa, Ranganna, Cairteacha agus Pictiúir; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Grúpáil Tábla Pivot de réir uimhir na seachtaine, lá na seachtaine agus níos mó ... Taispeáin Cealla Díghlasáilte, Faoi Ghlas de réir dathanna éagsúla; Aibhsigh Cealla a bhfuil Foirmle / Ainm orthu...
cluaisín kte 201905
  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun 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