Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս կանխել խնայողությունը, եթե Excel- ում որոշակի բջիջ դատարկ է:

Օրինակ, դուք աշխատանքային թերթիկում ձև եք մշակել և կիսում եք ձեր գործընկերների հետ: Հուսով եք, որ ձեր գործընկերները լրացնում են իրենց անունները հատուկ բջիջում `նշելու համար, թե ովքեր են մուտքագրել այս ձևը, հակառակ դեպքում նրանց խանգարում եք ձևը պահպանել, ինչպե՞ս կարող եք անել: Այստեղ ես կներկայացնեմ VBA մակրո, որպեսզի կանխեմ աշխատանքային գրքի պահպանումը, եթե հատուկ բջիջը դատարկ է Excel- ում:

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

նետ կապույտ աջ պղպջակԿանխել խնայողությունը, եթե Excel- ում որոշակի բջիջ դատարկ է

Գործող աշխատանքային գիրքը չպահելուց խուսափելու համար, եթե Excel- ում որոշակի բջիջը դատարկ է, կարող եք հեշտությամբ կիրառել հետևյալ VBA մակրոը:

Քայլ 1. Բացեք Microsoft Visual Basic հավելվածների համար պատուհանը ՝ սեղմելով ալտ + F11 միաժամանակ ստեղներ:

Քայլ 2. Exploreրագրի Explorer- ում ընդլայնեք VBAProject (ձեր աշխատանքային գրքի անունը. Xlsm) և Microsoft Excel- ի օբյեկտները, ապա կրկնակի կտտացրեք այն Այս գործառույթը, Տեսեք ձախ էկրանի նկարը.

Քայլ 3. ThisWorkbook- ի բացման պատուհանում տեղադրեք հետևյալ VBA մակրոը.

VBA մակրո. Կանխեք խնայողությունը, եթե կոնկրետ բջիջը դատարկ է

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Update by ExtendOffice 20220907
Dim xFileName As String
Dim xStr As String
Dim xStrWSH As String
Dim xWSh As Worksheet
Dim xWShs As Sheets
Dim xWSh1 As Worksheet
Dim xWB As Workbook

xStrWSH = "xHidWSH_LJY"
On Error Resume Next
Set xWB = Application.ActiveWorkbook
Set xWShs = xWB.Worksheets
Set xWSh = xWShs.Item(xStrWSH)

If xWSh Is Nothing Then

  Set xWSh1 = xWShs.Add
  xWSh1.Name = xStrWSH
  xWSh1.Visible = xlSheetVeryHidden
  Cancel = False

Else

  If Trim(Application.Sheets("Sheet1").Range("A1").Value) = "" Then
  Cancel = True
  MsgBox "Save cancelled"
  End If

End If

End Sub
Նշում:
1. Վերը նշված VBA կոդի 26-րդ շարքում նշված է «Թերթ 1» կոնկրետ աշխատաթերթի անվանումն է, և «A1«հատուկ բջիջ է, և դուք կարող եք դրանք փոխել ըստ ձեզ անհրաժեշտության:
2. VBA մուտքագրելուց հետո Այս գործառույթը, նախ պետք է պահպանել աշխատանքային գրքույկը։ Եվ հետո դուք կարող եք ուղարկել մակրո-միացված ֆայլը ուրիշներին:

Եթե ​​ներկայիս աշխատանքային գրքում որոշակի բջիջը դատարկ է, այն պահելու ժամանակ, դուրս կգա նախազգուշական երկխոսության տուփ և կպատմի ձեզ »:Պահելը չեղարկված է"Տե՛ս հետևյալ նկարը էկրանին.


նետ կապույտ աջ պղպջակԱռնչվող հոդվածներ


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (26)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, սա շատ օգտակար էր... Ուղղակի մեկ հարց ունեի, ինչպե՞ս կարող եմ պահպանել ֆայլն առանց արժեքի այդ դաշտում: Երբ ես փորձում եմ պահպանել, VBA կոդը կհայտնվի «Պահպանել չեղարկված» հաղորդագրությունը, որը նախատեսված պատասխանն է, սակայն, անհրաժեշտ է մեկ անգամ պահպանել առանց արժեքի, որպեսզի ստեղծվի նորից օգտագործման ձևը:

Thanks!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Էդուարդո,
Ի՞նչ կասեք նշված բջիջում բացատ մուտքագրելու մասին՝ դատարկ բջիջի ձևանալու համար: Խնդրում ենք հիշեցնել ապագայում հեռացնել տարածքը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Էդուարդո, կարողացա՞ք ստանալ ձեր հարցի պատասխանը: Ես հանդիպել եմ նույն խնդրին, և բացատում մուտքագրելը թույլ է տալիս միայն ձևը պահել: Որևէ մեկը գիտի՞ դրա լուծումը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi այնտեղ,

Խնդրում ենք փորձել ստորև նշված VBA կոդը.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Update by ExtendOffice 20220907
Dim xFileName As String
Dim xStr As String
Dim xStrWSH As String
Dim xWSh As Worksheet
Dim xWShs As Sheets
Dim xWSh1 As Worksheet
Dim xWB As Workbook

xStrWSH = "xHidWSH_LJY"
On Error Resume Next
Set xWB = Application.ActiveWorkbook
Set xWShs = xWB.Worksheets
Set xWSh = xWShs.Item(xStrWSH)

If xWSh Is Nothing Then

  Set xWSh1 = xWShs.Add
  xWSh1.Name = xStrWSH
  xWSh1.Visible = xlSheetVeryHidden
  Cancel = False

Else

  If Trim(Application.Sheets("Sheet1").Range("A1").Value) = "" Then

    xFileName = ActiveWorkbook.Name
    xStr = Left(xFileName, InStrRev(xFileName, ".") - 1)
    ActiveWorkbook.SaveCopyAs "C:\Users\Amanda\Desktop\" & Replace(xFileName, xStr, xStr & " - copy")
    Cancel = True
    MsgBox "Save cancelled"

  End If

End If

End Sub

Նշում:
1. Խնդրում ենք փոխել հատվածը Sheet1 և A1 26-րդ շարքում թերթի իրական անունը և բջիջը:
2. Խնդրում ենք փոխել հատվածը C:\Users\Amanda\Desktop\ 30-րդ շարքում իրական ճանապարհով, որտեղ ցանկանում եք պահպանել ֆայլի պատճենը:
3. VBA մուտքագրելուց հետո Այս գործառույթը, նախ պետք է պահպանել աշխատանքային գրքույկը. Դրանից հետո, երբ այն նորից պահպանեք, աշխատանքային գրքույկը կպատճենվի, որպեսզի կարողանաք այն ուղարկել ուրիշներին։

Amanda
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ամանդա, չստացվեց :(. Ինձ սխալ է թույլ տվել, երևի սխալ եմ անում: Ես ուզում եմ միայն ձևի պատճենը պահել (դատարկ դաշտերով), որպեսզի օգտվողը կարողանա բացել և լրացնել: Որտեղ մակրոն հուշում է նրանց և թույլ չի տալիս պահպանել ֆայլը, եթե այն դատարկ է: Խնդրում եմ, կարո՞ղ եք նայել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi այնտեղ,

Խնդրում ենք տեսնել վերը նշված մեկնաբանությունը, ես թարմացրել եմ VBA-ն: Կոդը պետք է կատարյալ աշխատի ձեր գործի համար:

Amanda
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Աշխատում է, բայց այժմ պատճենված ֆայլը չի ​​աշխատում որպես ձև: Այն պարզապես հուշում է, որ պահպանումը չեղարկվել է: Ինձ պետք է հիմնականում դատարկ ձև, որը թույլ չի տա օգտատերերին խնայել մինչև կոնկրետ դաշտեր լրացվեն: Իմ ընթացիկ ձևանմուշը ունի բոլոր դաշտերը լրացված, բայց ինձ անհրաժեշտ է դատարկ Օգտվողի ֆայլ: Կներեք, գուցե ճիշտ չեմ բացատրել։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես ուզում եմ հարցնել, արդյոք դա A2-ից մինչև U2 է: ինչ գրեմ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Վկայ,
Փորձեք այս VBA կոդը.
(Այս VBA կոդը կհայտնաբերի A2:E5 միջակայքը «Թեստ» թերթիկում և կչեղարկի պահպանումը, եթե տիրույթում առկա են դատարկ բջիջներ:)

Մասնավոր ենթագիրք_BeforeSave (ByVal SaveAsUI որպես բուլյան, չեղարկել որպես բուլյան)
Dim xWSName-ը որպես տող
Dim xRgՀասցեն որպես տող
Dim xRg որպես տիրույթ
Dim xWs As Worksheet
Dim xFNRg որպես միջակայք
xWSName = «ԹԵՍՏ»
xRgAddress = «A2:E5»
Սահմանել xWs = Application.ActiveWorkbook.Worksheets.Item(xWSName)
Սահմանել xRg = xWs.Range(xRgAddress)
Սահմանել xFNRg = Ոչինչ
Ս.թ. սխալի Ռեզյումե Next
Սահմանել xFNRg = xRg.SpecialCells(xlCellTypeBlanks, 23)
If Not TypeName(xFNRg.count) = «Ոչինչ» Ապա
Չեղարկել = Ճշմարիտ
MsgBox «Պահպանումը չեղարկված է»
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, շատ օգտակար: ԲԱՅՑ խնդիր կա, երբ այն օգտագործում եմ sharepoint-ի ֆայլերի համար։ Փոփոխությունները չեն պահպանվում, բայց ստեղծվում է նոր տարբերակ, որը ցուցադրվում է վերաբացման ժամանակ, ինչը բավականին շփոթեցնող է: Հնարավո՞ր է անջատել այս նոր տարբերակները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա իսկապես հիանալի է: Գիտե՞ք, թե ինչ կարող եմ անել, որպեսզի սա աշխատի մի շարք թերթիկների և մի շարք բջիջների համար: Բացի այդ, այս բջիջները չեն կարող միշտ լինել նույնը, քանի որ այս հատուկ աշխատանքային գրքում ստեղծվում են թերթեր, որոնք կարող են չունենալ նույն բջիջը, որը պետք է ամեն անգամ լրացվի: Բջիջները միշտ կլինեն նույն սյունակում, էջի սահմանի վերևում, որը նույնպես ստեղծվում է: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ շատ մեծ աղյուսակ, որը պարունակում է շատ տեղեկություններ:
Խնդրում եմ, ինչ-որ մեկը կարող է օգնել ինձ VBA-ում պատճենելու կոդով. ես ուզում եմ, որ եթե C2-C1000+ բջիջը որևէ տեղեկություն ունենա, ապա O2-O1000+ և P2-P1000+ բջիջը պահանջում է օգտվողի մուտքագրում, սակայն եթե C սյունակի բջիջը դատարկ, ապա O & P սյունակի բջիջը նույնպես կարող է դատարկ լինել: (օրինակ) եթե C3 բջիջը չունի տվյալների մուտքագրում, ապա O3-P3 բջիջը կարող է դատարկ լինել:

Շնորհակալություն :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Յզել,
Խնդրում ենք հիշել, որ ներքևի կոդը տեղադրեք «ThisWorkbook» սցենարի պատուհանում և վերանվանեք աշխատաթերթի անունը «Թեստ» ստորև կոդում՝ ելնելով ձեր վիճակից:

Dim xIRg որպես միջակայք
Dim xSRg որպես միջակայք
Dim xBol-ը որպես բուլյան
Dim xInt որպես ամբողջ թիվ
Dim xStr Որպես տող
If ActiveSheet.Name = «Test» Ապա
Սահմանել xRg = միջակայք («C:C»)
Սահմանել xRRg = Intersect(xRg.Worksheet.UsedRange, xRg)
xBol = Սխալ
Ս.թ. սխալի Ռեզյումե Next
xInt = 1-ի համար դեպի xRRg.Count
Սահմանել xIRg = xRRg.Item(xInt)
Եթե ​​xIRg.Value2 <> "" Ապա
Սահմանել xSRg = Ոչինչ
Եթե ​​(Range("O" & xIRg.Row) = "") Կամ (Range("P" & xIRg.Row) = "") Այնուհետեւ
xBol = Ճշմարիտ
Ելք For
Վերջ: Եթե
Վերջ: Եթե
հաջորդ
Եթե ​​xBol Ապա
Չեղարկել = Ճշմարիտ
MsgBox «Պահպանումը չեղարկված է»
Վերջ: Եթե
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մասնավոր ենթագիրք_BeforeSave (ByVal SaveAsUI որպես բուլյան, չեղարկել որպես բուլյան)

Թերթերով («Թերթ1»)
If WorksheetFunction.CountA(.Range("A1:A4")) <> WorksheetFunction.CountA(.Range("B1:C4")) / 2 Ապա
Չեղարկել = Ճշմարիտ
MsgBox "Խնդրում ենք մուտքագրել արժեքներ B և C սյունակներում", vbCritical, "Error!"
Վերջ: Եթե
Վերջ

Վերջ Sub

Պարզապես փոխեք միջակայքը a-ից c, իսկ b-ից o և phope դա կօգնի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ունե՞ք միջոց, որ սա կարող է կոդավորվել այնպես, որ B-ն կամ C-ն պետք է լրացվեն, բայց երկուսն էլ լրացնելը պարտադիր չէ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մասնավոր ենթագիրք_BeforeSave (ByVal SaveAsUI որպես բուլյան, չեղարկել որպես բուլյան)

Թերթերով («Թերթ1»)
If WorksheetFunction.CountA(.Range("A1:A4")) <> WorksheetFunction.CountA(.Range("B1:C4")) / 2 Ապա
Չեղարկել = Ճշմարիտ
MsgBox "Խնդրում ենք մուտքագրել արժեքներ B և C սյունակներում", vbCritical, "Error!"
Վերջ: Եթե
Վերջ

Վերջ Sub


Պարզապես փոխեք միջակայքը a-ից c, իսկ b-ից o և p
հուսով եմ, որ դա կօգնի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարի կեսօր, ես օգտագործեցի վերը նշված կոդը և այն հիանալի աշխատեց: իմ հարցն այն է, թե ինչպիսին պետք է լինի կոդը, եթե ես ուզում եմ փորձարկել 2 բջիջների վրա: Ես բավականին հուսահատ եմ։ շնորհակալություն եմ հայտնում նախօրոք ձեր օգնության համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
HiI Ես ունեմ VBA կոդ, որը տեսակավորում և զտում է տվյալները մեկ Excel աղյուսակից և պահում է 48 տարբեր հաշվետվություններ իմ աշխատասեղանին: բայց այդ զտիչների հիման վրա որոշ գեներացված հաշվետվություններ ունեն ընդամենը 1 տող (վերնագիր) և ոչ մի տվյալ: Ինչպե՞ս կարող եմ իմ ֆայլին ավելացնել VBA կոդ, որը թույլ չի տալիս պահպանել ֆայլերը, որոնք ունեն ընդամենը մեկ տող (վերնագիր) և ոչ մի տվյալ: Շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi
Ես ունեմ VBA կոդ, որը տեսակավորում և զտում է տվյալները մեկ Excel աղյուսակից և պահում է 48 տարբեր հաշվետվություններ իմ աշխատասեղանին: բայց այդ զտիչների հիման վրա որոշ գեներացված հաշվետվություններ ունեն ընդամենը 1 տող (վերնագիր) և ոչ մի տվյալ: Ինչպե՞ս կարող եմ VBA կոդ ավելացնել իմ ֆայլին, որը թույլ չի տալիս պահպանել ֆայլերը, որոնք ունեն ընդամենը մեկ տող (վերնագիր) և ոչ մի տվյալ:
Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես փորձեցի վերը նշված բանաձևը, որն աշխատում է: Կարո՞ղ եմ իմանալ, կա՞ որևէ բանաձև, որը կարող է ստիպել օգտվողին լրացնել նախքան պահպանումը: Երբ ես դրեցի «Խնդրում եմ ընտրեք», «Այո» կամ «Ոչ» բացվող ընտրացանկը, որպեսզի նրանք ընտրեն: Բայց նրանք միշտ մոռանում էին ընտրել այդ դաշտը և մնում էին «Խնդրում եմ ընտրել»։ Եթե ​​ես ավելացնեմ այս VBA կոդը, միայն կիրառման բջիջը դատարկ է: Շատ շնորհակալ եմ, դուք կարող եք խորհուրդ տալ: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձեցի վերը նշված բանաձևը, որն աշխատում է: Կարո՞ղ եմ իմանալ, կա՞ որևէ բանաձև, որը կարող է ստիպել օգտվողին լրացնել նախքան պահպանումը: Երբ ես դրեցի «Խնդրում եմ ընտրեք», «Այո» կամ «Ոչ» բացվող ընտրացանկը, որպեսզի նրանք ընտրեն: Բայց նրանք միշտ մոռանում էին ընտրել այդ դաշտը և մնում էին «Խնդրում եմ ընտրել»։ Եթե ​​ես ավելացնեմ այս VBA կոդը, միայն կիրառման բջիջը դատարկ է: Շատ շնորհակալ եմ, դուք կարող եք խորհուրդ տալ: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Երջանիկ,
Պարզապես փոխարինեք դատարկ արժեքը»Թերթեր ("TEST").Range("A1").Value = ""«նշված տեքստին»Sheets("TEST").Range("A1").Value = "Խնդրում ենք ընտրել"«Եվ ամբողջ ծածկագիրը կփոխվի հետևյալ կերպ.
Մասնավոր ենթագիրք_BeforeSave (ByVal SaveAsUI որպես բուլյան, չեղարկել որպես բուլյան)
If Application.Sheets("TEST").Range("A1").Value = "Խնդրում ենք ընտրել" Ապա
Չեղարկել = Ճշմարիտ
MsgBox «Պահպանումը չեղարկված է»
Վերջ: Եթե
Վերջ Sub

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա չի աշխատում, այն նշում է, որ պահպանումը չեղարկված է, բայց այնուամենայնիվ ավարտվում է աշխատանքային գրքույկի պահպանմամբ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նշում. VBA կոդում «ԹԵՍՏ»-ը կոնկրետ աշխատաթերթի անունն է, իսկ «A1»-ը հատուկ բջիջ է, և դուք կարող եք փոխել դրանք ըստ անհրաժեշտության:

Օրինակ, ձեր թերթիկը կոչվում է «Sheet1», իսկ նշված բջիջը B2 է, դուք պետք է փոխեք թերթի անվանումը և բջջային հասցեն VBA կոդի մեջ, նախքան այն գործարկելը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարեւ,
io avrei bisogno di impostare una macro simile a quella di Eduardo. Մասնավորապես, ho due tabelle:
«- prima tabella A18:P28
«- երկրորդը A33:P41.
Vorrei impedire che l'utente salvi il file se ha compilato la cella A18 e le altre attigue (B18:P18) le ha lasciate vuote oppure se ha compilato la cella A33 e ha lasciato vuole le attigue (B33:P33): Ինչու՞մ է արդյոք, եկե՞լ եք մակրո: Ողջունում եմ, որ սպասում ենք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi այնտեղ,

Ուզում եք ասել, որ ուզում եք կանխել ֆայլի պահպանումը, եթե A18-ը լրացված է, իսկ B18: P18-ը դատարկ է: Դուք նաև ցանկանում եք կանխել պահպանումը, եթե A33-ը լրացված է, մինչդեռ B33: P33-ը դատարկ է:
Ցանկանու՞մ եք կանխել խնայողությունը, երբ երկու չափանիշներն էլ բավարարված են, կամ երբ չափանիշներից որևէ մեկը բավարարված է:
Նաև խնդրում ենք օգտագործել անգլերեն: Շնորհակալ եմ նախապես.

Amanda
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից