Sut i wneud enw Botwm Gorchymyn yn ddeinamig yn Excel?
Mae'r erthygl hon yn sôn am wneud i enw botwm Gorchymyn gael ei newid yn ddeinamig gyda newidiadau penodol i werth celloedd. Er enghraifft, pan fydd gwerth yng nghell A1 wedi'i newid i “brawf”, bydd enw botwm Gorchymyn penodol yn cael ei newid i “brofi” yn awtomatig.
Gwneud enw Botwm Gorchymyn yn ddeinamig gyda gwerth celloedd yn ôl cod VBA
Gwneud enw Botwm Gorchymyn yn ddeinamig gyda gwerth celloedd yn ôl cod VBA
Gall y cod VBA canlynol eich helpu i wneud enw botwm gorchymyn yn ddeinamig gyda gwerth cell penodedig mewn taflen waith. Gwnewch fel a ganlyn.
1. Cliciwch Datblygwr > Mewnosod > Botwm Gorchymyn (Rheoli ActiveX) i fewnosod botwm gorchymyn yn y daflen waith. Gweler y screenshot:
2. Ar ôl mewnosod y botwm gorchymyn, cliciwch ar y dde ar y tab dalen a chlicio Gweld y Cod o'r ddewislen clicio ar y dde fel y dangosir isod y screenshot:
3. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch islaw'r cod VBA i'r ffenestr.
Cod VBA: Gwneud enw Botwm Gorchymyn yn ddeinamig gyda gwerth celloedd
Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xShapeRg As ShapeRange
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Me.CommandButton1.Caption = Target.Text
Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
Application.EnableEvents = False
xShapeRg.Select
Application.EnableEvents = True
Selection.Name = Target.Text
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
xStr = Target.Text
End If
End Sub
Nodyn: yn y cod, CommandButton1 yw enw'r botwm rydych chi am wneud ei enw'n ddeinamig, ac A1 yw'r gell y byddwch chi'n cyfeirio'r gwerth at enw'r botwm yn awtomatig.
4. Gwasgwch y Alt + Q allweddi i adael y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
5. Diffoddwch y Modd Dylunio trwy glicio Datblygwr > Modd Dylunio.
O hyn ymlaen, bydd enw'r Botwm Gorchymyn yn cael ei newid yn ddeinamig gyda'r gwerth celloedd penodedig yn eich taflen waith.
Fel isod llun a ddangosir, pan fydd gwerth cell A1 wedi'i newid, bydd enw'r botwm gorchymyn yn cael ei newid i'r un gwerth yn awtomatig.
Erthyglau cysylltiedig:
- Sut i ddefnyddio Botwm Gorchymyn i gadw taflen waith weithredol fel ffeil PDF yn Excel?
- Sut i fewnosod rhes newydd wag yn awtomatig gan Command Button yn Excel?
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!