Sut i popio blwch negeseuon i arddangos ystod o gelloedd neu werthoedd celloedd yn Excel?
Mewn rhai achosion, efallai y bydd angen i chi atgoffa'ch hun o'r cwmpas amrediad a ddewisoch, neu arddangos holl werthoedd amrediad penodol. Yn yr erthygl hon, byddwch yn cael dulliau o sut i popio blwch neges i arddangos y cyfeirnod celloedd a ddewiswyd neu'r gwerthoedd celloedd manwl yn Excel.
Blwch neges pop i arddangos ystod o gelloedd gyda chod VBA
Blwch neges pop i arddangos gwerthoedd o ystod benodol gyda chod VBA
Blwch neges pop i arddangos ystod o gelloedd gyda chod VBA
Mae'r cod VBA canlynol yn eich helpu i arddangos y cwmpas amrediad a ddewisoch mewn blwch negeseuon popped. Gwnewch fel a ganlyn.
1. Ar ôl dewis ystod o gelloedd yn y daflen waith, pwyswch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Modiwl.
Cod VBA: Blwch negeseuon i arddangos ystod o gelloedd
Sub Test()
On Error Resume Next
MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub
3. Gwasgwch y F5 allwedd i redeg y cod. Yna mae blwch neges yn ymddangos gyda chwmpas ystod y celloedd dethol sy'n arddangos y tu mewn.
Blwch neges pop i arddangos gwerthoedd o ystod benodol gyda chod VBA
Gan dybio bod angen i chi popio blwch neges i arddangos holl werthoedd celloedd ystod A1: D13 fel y dangosir isod y screenshot. Os gwelwch yn dda rhedeg y cod VBA isod.
1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Modiwl.
Cod VBA: Blwch negeseuon i arddangos gwerthoedd celloedd dethol yn Excel
Sub mesage()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xStr As String
Dim xRow As Long
Dim xCol As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For xRow = 1 To xRg.Rows.Count
For xCol = 1 To xRg.Columns.Count
xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
Next
xStr = xStr & vbCrLf
Next
MsgBox xStr, vbInformation, "Kutools for Excel"
End Sub
3. Gwasgwch y F5 allwedd i redeg y cod, yn y popping up Kutools ar gyfer Excel blwch deialog, dewiswch yr ystod sydd ei hangen arnoch i arddangos gwerthoedd celloedd mewn blwch neges, ac yna cliciwch ar y OK botwm. Gweler y screenshot:
Yna fe gewch flwch neges fel y dangosir y screenshot isod, ac mae holl werthoedd celloedd ystod benodol yn cael eu harddangos yn y blwch negeseuon.
Erthyglau perthnasol:
- Sut i greu amserydd blwch neges i gau'r blwch negeseuon yn awtomatig ar ôl amser penodol yn Excel?
- Sut i popio blwch negeseuon wrth glicio ar gell benodol yn Excel?
- Sut i gopïo testun o'r blwch negeseuon yn Excel?
- Sut i popio blwch negeseuon wrth actifadu / agor taflen waith benodol yn Excel?
- Sut i popio blwch negeseuon os yw gwerth celloedd yn newid o fewn ystod 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!