Sut i alluogi neu analluogi botwm yn seiliedig ar werth celloedd yn Excel?
Yr erthygl hon, byddaf yn siarad am rai dulliau i alluogi neu analluogi botwm yn seiliedig ar werth celloedd yn nhaflen waith Excel.
Galluogi neu analluogi dau fotwm yn seiliedig ar ddata dwy golofn gyda chod VBA
Galluogi neu analluogi botwm yn seiliedig ar ddau werth cell gyda chod VBA
Galluogi neu analluogi dau fotwm yn seiliedig ar ddata dwy golofn gyda chod VBA
Er enghraifft, mae gen i ddau fotwm gorchymyn mewn taflen waith, os oes gan Golofn A ddata, mae'r botwm1 wedi'i alluogi, ac mae botwm 2 wedi'i anablu; os yw Colofn C yn cynnwys data, mae'r botwm 2 wedi'i alluogi, ac mae botwm 1 wedi'i anablu. I ddatrys y dasg hon, gall y cod VBA canlynol eich helpu.
1. Cliciwch ar y dde ar y ddalen sy'n cynnwys y botymau, ac yna dewiswch Gweld y Cod o'r ddewislen cyd-destun, gweler y screenshot:
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod isod i'r modiwl gwag:
Cod VBA: Galluogi neu analluogi dau fotwm yn seiliedig ar ddwy golofn:
Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Enabled = False
CommandButton2.Enabled = False
If Application.WorksheetFunction.CountA(Range("C:C")) > 0 Then
CommandButton2.Enabled = True
End If
If Application.WorksheetFunction.CountA(Range("A:A")) > 0 Then
CommandButton1.Enabled = True
End If
End Sub
Nodyn: Yn y cod uchod, Botwm Gorchymyn1 ac Botwm Gorchymyn2 yw enwau'r botymau, A: A ac C: C. yw'r ddwy golofn rydych chi'n eu defnyddio i alluogi neu analluogi dau fotwm, newidiwch nhw i'ch angen.
3. Yna arbedwch a chau ffenestr y cod, nawr, fe gewch y canlyniad canlynol yn ôl yr angen:
(1.) Os teipiwch ddata yng Ngholofn A, mae'r botwm 1 wedi'i alluogi ac mae botwm 2 wedi'i anablu, gweler y screenshot:
(2.) Os teipiwch ddata yng Ngholofn C, mae'r botwm 2 wedi'i alluogi ac mae botwm 1 wedi'i anablu, gweler y screenshot:
(3.) Mae gan Golofn A a Cholofn C ddata, mae dau fotwm i gyd wedi'u galluogi, gweler y screenshot:
(4.) Mae dau fotwm i gyd yn anabl os nad oes data yng Ngholofn A a Cholofn C, gweler y screenshot:
Galluogi neu analluogi botwm yn seiliedig ar ddau werth cell gyda chod VBA
Os ydych chi eisiau galluogi neu analluogi botwm gorchymyn yn seiliedig ar ddau werth cell, megis, pan fo gwerth yn A1 yn fwy na gwerth yn B1, mae'r botwm wedi'i alluogi, fel arall, mae'r botwm wedi'i anablu. Gall y cod VBA canlynol hefyd ffafrio chi.
1. Cliciwch ar y dde ar y ddalen sy'n cynnwys y botwm, ac yna dewiswch Gweld y Cod o'r ddewislen cyd-destun, yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod isod i'r modiwl gwag, gweler y screenshot:
Cod VBA: Galluogi neu analluogi botwm yn seiliedig ar ddau werth cell:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TargetAdd As String
Dim xTemp As Double
On Error GoTo ExitSub
TargetAdd = Target.Address
CommandButton1.Enabled = False
If (TargetAdd = Range("A1").Address) Or (TargetAdd = Range("B1").Address) Then
If Range("A1") > Range("B1") Then
CommandButton1.Enabled = True
End If
End If
ExitSub:
End Sub
Nodyn: Yn y cod uchod, A1 ac B1 yw'r gwerthoedd celloedd rydych chi'n eu defnyddio, Botwm Comin1 yw enw'r botwm, newidiwch nhw i'ch un chi.
2. Yna arbedwch a chau ffenestr y cod, nawr, os yw gwerth y gell yn A1 yn fwy na B1, mae'r botwm wedi'i alluogi, fel arall, os yw gwerth y gell yn A1 yn llai na B1, mae'r botwm yn anabl, gweler y screenshot:
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!