Sut i ddangos yr eitem gyntaf yn y gwymplen yn lle gwag?
Efallai y bydd y gwymplen mewn taflen waith yn ein helpu i wneud mewnbynnu data yn haws, mae angen i ni ddewis yr eitemau heb eu teipio fesul un. Ond, rywbryd, pan gliciwch ar y gwymplen, mae'n neidio i'r eitemau gwag yn gyntaf yn lle'r eitem ddata gyntaf fel a ganlyn ar y screenshot a ddangosir, gall hyn gael ei achosi trwy ddileu'r data ffynhonnell ar ddiwedd y rhestr. Efallai ei bod yn annifyr bod yn rhaid i chi sgrolio yn ôl i frig rhestr hir ar gyfer pob cell dilysu data gwag. Yr erthygl hon, byddaf yn siarad am sut i ddangos yr eitem gyntaf yn y gwymplen bob amser.
Dangoswch yr eitem gyntaf yn y gwymplen yn lle gwag gyda swyddogaeth Dilysu Data
Dangoswch yr eitem gyntaf yn y gwymplen yn awtomatig yn lle gwag gyda chod VBA
Dangoswch yr eitem gyntaf yn y gwymplen yn lle gwag gyda swyddogaeth Dilysu Data
Mewn gwirionedd, i gyflawni'r swydd hon, does ond angen i chi gymhwyso fformiwla benodol wrth greu rhestr ostwng, gwnewch fel a ganlyn:
1. Dewiswch y celloedd lle rydych chi am fewnosod y gwymplen, a chlicio Dyddiad > Dilysu Data > Dilysu Data, gweler y screenshot:
2. Yn y popped allan Dilysu Data blwch deialog, o dan y Gosodiadau tab, dewis rhestr oddi wrth y Caniatáu adran, ac yna nodwch y fformiwla hon: = OFFSET (Taflen3! $ A $ 1,0,0, COUNTA (Taflen3! $ A: $ A) -1,1) i mewn i'r ffynhonnell blwch testun, gweler y screenshot:
Nodyn: Yn y fformiwla hon, Sheet3 yw'r daflen waith yn cynnwys y rhestr ddata ffynhonnell, a A1 yw'r gwerth cell cyntaf yn y rhestr.
3. Yna cliciwch OK botwm, nawr, pan fyddwch chi'n clicio celloedd y gwymplen, mae'r eitem ddata gyntaf bob amser yn cael ei harddangos ar y brig p'un a oes gwerthoedd celloedd wedi'u dileu ar ddiwedd y data ffynhonnell, gweler y screenshot:
Dangoswch yr eitem gyntaf yn y gwymplen yn awtomatig yn lle gwag gyda chod VBA
Yma, gallaf hefyd gyflwyno cod VBA a all eich helpu i ddangos yr eitem gyntaf yn y gwymplen yn awtomatig pan fyddwch chi'n clicio'r celloedd dilysu data.
1. Ar ôl mewnosod y gwymplen, dewiswch y tab taflen waith sy'n cynnwys y gwymplen, a chliciwch ar y dde i ddewis Gweld y Cod o'r ddewislen cyd-destun i fynd i'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, ac yna copïo a gludo'r cod canlynol i'r Modiwl:
Cod VBA: Dangoswch yr eitem ddata gyntaf yn y gwymplen yn awtomatig:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20160725
Dim xFormula As String
On Error GoTo Out:
xFormula = Target.Cells(1).Validation.Formula1
If Left(xFormula, 1) = "=" Then
Target.Cells(1) = Range(Mid(xFormula, 1)).Cells(1).Value
End If
Out:
End Sub
2. Yna arbedwch a chau ffenestr y cod, ac yn awr, pan gliciwch ar y gwymplen, bydd yr eitem ddata gyntaf yn cael ei harddangos ar unwaith.
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!