Π‘Π°ΠΊΠ°Π»Π°Π²Ρ€
Π”ΠΈΠΏΠ»ΠΎΠΌΠ½Ρ‹Π΅ ΠΈ курсовыС Π½Π° Π·Π°ΠΊΠ°Π·

Π€ΡƒΠ½ΠΊΡ†ΠΈΠΈ для форматирования Π΄Π°Π½Π½Ρ‹Ρ…

Π Π΅Ρ„Π΅Ρ€Π°Ρ‚ΠŸΠΎΠΌΠΎΡ‰ΡŒ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈΠ£Π·Π½Π°Ρ‚ΡŒ ΡΡ‚ΠΎΠΈΠΌΠΎΡΡ‚ΡŒΠΌΠΎΠ΅ΠΉ Ρ€Π°Π±ΠΎΡ‚Ρ‹

Для ΠΎΡΡ‚Π°Π»ΡŒΠ½Ρ‹Ρ… Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ Format…() Ρ‚ΠΎ, Ρ‡Ρ‚ΠΎ ΠΎΠ½ΠΈ Π΄Π΅Π»Π°ΡŽΡ‚, понятно ΠΈΠ· Π½Π°Π·Π²Π°Π½ΠΈΡ. Если Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ nVar Ρ€Π°Π²Π½ΠΎ 1, Ρ‚ΠΎ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒ Π½Π°ΠΆΠ°Π» OK, Ссли 2, Ρ‚ΠΎ Cancel. МоТно ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Ρ‚ΡŒ Ρ€Π°Π·Π½ΠΎΠ΅ ΠΊΠΎΠ»-Π²ΠΎ ΠΊΠ½ΠΎΠΏΠΎΠΊ (OK, Cancel, Abort, Retry, Ignore, Yes, No),. NVar = MsgBox («Π‘ΡƒΠ΄Π΅ΠΌ Π΄Π΅Π»Π°Ρ‚ΡŒ?», 65, «Π”СмонстрационноС ΠΎΠΊΠ½ΠΎ сообщСния»). ВзаимодСйствиС с ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Π΅ΠΌ Π² VBA, Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ MsgBox () ΠΈ InputBox (). МоТно ΠΏΠΎΠΊΠ°Π·Ρ‹Π²Π°Ρ‚ΡŒ символы… Π§ΠΈΡ‚Π°Ρ‚ΡŒ Π΅Ρ‰Ρ‘ >

Π€ΡƒΠ½ΠΊΡ†ΠΈΠΈ для форматирования Π΄Π°Π½Π½Ρ‹Ρ… (Ρ€Π΅Ρ„Π΅Ρ€Π°Ρ‚, курсовая, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½Ρ‚Ρ€ΠΎΠ»ΡŒΠ½Π°Ρ)

Π€ΡƒΠ½ΠΊΡ†ΠΈΠΈ форматирования VBA, функция Format ().

Для форматирования Π΄Π°Π½Π½Ρ‹Ρ… Π² Π²Π°ΡˆΠ΅ΠΌ распоряТСнии — функция Format () ΠΈ Ρ†Π΅Π»Ρ‹ΠΉ Π½Π°Π±ΠΎΡ€ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π½Π°Ρ‡ΠΈΠ½Π°ΡŽΡ‚ΡΡ Π½Π° Format (FormatNumber (), FormatCurrency (), FormatDateTime () ΠΈ Ρ‚. ΠΏ.) Бинтаксис Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Format () выглядит Ρ‚Π°ΠΊ:

Format (Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅, «Ρ„ΠΎΡ€ΠΌΠ°Ρ‚»).

НСсколько ΠΏΡ€ΠΈΠΌΠ΅Ρ€ΠΎΠ² примСнСния Format () (посмотритС сами, Ρ‡Ρ‚ΠΎ получится):

Format (15/20, «Percent»).

Format (Date, «Long Date»).

Format (1, «On/Off»).

Format (334.9, «###0.00»).

Format («ΠŸΡ€ΠΎΡΡ‚ΠΎ тСкст «, >).

Для ΠΎΡΡ‚Π°Π»ΡŒΠ½Ρ‹Ρ… Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ Format…() Ρ‚ΠΎ, Ρ‡Ρ‚ΠΎ ΠΎΠ½ΠΈ Π΄Π΅Π»Π°ΡŽΡ‚, понятно ΠΈΠ· Π½Π°Π·Π²Π°Π½ΠΈΡ.

Особая ситуация — ΠΊΠΎΠ³Π΄Π° Π½ΡƒΠΆΠ½ΠΎ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π΄Π°Ρ‚Π° ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π»Π°ΡΡŒ Π½Π° ΠΊΠΎΠΌΠΏΡŒΡŽΡ‚Π΅Ρ€Π°Ρ… ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Π΅ΠΉ Π΅Π΄ΠΈΠ½ΠΎΠΎΠ±Ρ€Π°Π·Π½ΠΎ Π²Π½Π΅ зависимости ΠΎΡ‚ Ρ€Π΅Π³ΠΈΠΎΠ½Π°Π»ΡŒΠ½Ρ‹Ρ… настроСк. Π’ ΠΊΠ°Ρ‡Π΅ΡΡ‚Π²Π΅ Ρ€Π΅ΡˆΠ΅Π½ΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΡŽ DatePart (): ΠΏΡ€ΠΈ ΠΏΠΎΠΌΠΎΡ‰ΠΈ Π½Π΅Π΅ пСрСвСсти Π΄Π°Ρ‚Ρƒ «ΠΏΠΎ Ρ‡Π°ΡΡ‚ям» Π² Ρ‚Скстовый Ρ„ΠΎΡ€ΠΌΠ°Ρ‚ ΠΈ «ΡΠΊΠ»Π΅ΠΈΡ‚ΡŒ» Π΅Π΅ Π½ΡƒΠΆΠ½Ρ‹ΠΌ ΠΎΠ±Ρ€Π°Π·ΠΎΠΌ.

Π€ΡƒΠ½ΠΊΡ†ΠΈΠΈ для ΠΎΡ€Π³Π°Π½ΠΈΠ·Π°Ρ†ΠΈΠΈ взаимодСйствия с ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Π΅ΠΌ

ВзаимодСйствиС с ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Π΅ΠΌ Π² VBA, Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ MsgBox () ΠΈ InputBox ().

Π’ΠΎ ΠΌΠ½ΠΎΠ³ΠΈΡ… ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ°Ρ… VBA Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅Ρ‡ΠΈΡ‚ΡŒ взаимодСйствиС с ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Π΅ΠΌ — ΠΏΡ€ΠΎΠΈΠ½Ρ„ΠΎΡ€ΠΌΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Π΅Π³ΠΎ ΠΎ Ρ‡Π΅ΠΌ-Ρ‚ΠΎ ΠΈ (Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ) ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ ΠΎΡ‚ Π½Π΅Π³ΠΎ ΠΎΡ‚Π²Π΅Ρ‚Π½ΡƒΡŽ Ρ€Π΅Π°ΠΊΡ†ΠΈΡŽ. Π’ ΠΏΡ€ΠΈΠ½Ρ†ΠΈΠΏΠ΅, для ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Ρ ΠΌΠΎΠΆΠ½ΠΎ просто вывСсти тСкст Π² ΠΎΠΊΠ½Π΅ прилоТСния (Π½Π°ΠΏΡ€ΠΈΠΌΠ΅Ρ€, Π² Ρ‚Π΅ΠΊΡƒΡ‰Π΅ΠΌ Π΄ΠΎΠΊΡƒΠΌΠ΅Π½Ρ‚Π΅ Word) ΠΈΠ»ΠΈ Π²ΠΎΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒΡΡ Ρ„ΠΎΡ€ΠΌΠΎΠΉ ΠΈ ΡΠ»Π΅ΠΌΠ΅Π½Ρ‚Π°ΠΌΠΈ управлСния. Как это дСлаСтся — ΠΌΡ‹ ΡƒΠ·Π½Π°Π΅ΠΌ Π² ΡΠΎΠΎΡ‚Π²Π΅Ρ‚ΡΡ‚Π²ΡƒΡŽΡ‰ΠΈΡ… Π³Π»Π°Π²Π°Ρ…. Π’ ΡΡ‚ΠΎΠΉ части ΠΌΡ‹ Ρ€Π°ΡΡΠΌΠΎΡ‚Ρ€ΠΈΠΌ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ ΠΏΡ€ΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ для этой Ρ†Π΅Π»ΠΈ встроСнных Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ VBA.

Π‘Π°ΠΌΠΎΠΉ простой способ вывСсти ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΡŽ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŽ — Π²ΠΎΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒΡΡ встроСнной Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠ΅ΠΉ VBA MsgBox (). ΠŸΡ€ΠΈΠΌΠ΅Ρ€ΠΎΠ² примСнСния этой Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Π² Π½Π°ΡˆΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΡƒΠΆΠ΅ Π±Ρ‹Π»ΠΎ мноТСство, Π° ΠΏΠΎΠ»Π½Ρ‹ΠΉ Π΅Π΅ ΡΠΈΠ½Ρ‚аксис выглядит Ρ‚Π°ΠΊ:

MsgBox (ВСкст[, ΠΊΠ½ΠΎΠΏΠΊΠΈ] [, Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ ΠΎΠΊΠ½Π°] [, Ρ„Π°ΠΉΠ» справки, ΠΌΠ΅Ρ‚ΠΊΠ° Π² Ρ„Π°ΠΉΠ»Π΅ справки]).

ВозмоТностСй Ρƒ MsgBox () достаточно ΠΌΠ½ΠΎΠ³ΠΎ:

  • Β· ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Ρ‚ΡŒ Ρ€Π°Π·Π½ΠΎΠ΅ ΠΊΠΎΠ»-Π²ΠΎ ΠΊΠ½ΠΎΠΏΠΎΠΊ (OK, Cancel, Abort, Retry, Ignore, Yes, No),
  • Β· ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠΊΠ°Π·Ρ‹Π²Π°Ρ‚ΡŒ символы Critical, Warning, Question, Information,
  • Β· ΠΌΠΎΠΆΠ½ΠΎ Π²Ρ‹Π±ΠΈΡ€Π°Ρ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΡƒ ΠΏΠΎ ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ,
  • Β· ΠΌΠΎΠΆΠ½ΠΎ Π΄Π΅Π»Π°Ρ‚ΡŒ ΠΎΠΊΠ½ΠΎ ΠΌΠΎΠ΄Π°Π»ΡŒΠ½Ρ‹ΠΌ ΠΈΠ»ΠΈ ΠΎΠ±Ρ‹Ρ‡Π½Ρ‹ΠΌ.

Π’ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡ‚ΠΈ ΠΎΡ‚ Ρ‚ΠΎΠ³ΠΎ, Π½Π° ΠΊΠ°ΠΊΡƒΡŽ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒ ΠΊΠ½ΠΎΠΏΠΊΡƒ Π½Π°ΠΆΠ°Π», Ρ‚Π°ΠΊΠΎΠ΅ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ возвращаСтся ΠΏΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡŽ (всСго 7 Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ΠΎΠ²). ΠŸΠΎΠ΄Ρ€ΠΎΠ±Π½Π΅Π΅ — Π² ΡΠΏΡ€Π°Π²ΠΊΠ΅ ΠΏΠΎ VBA. ΠŸΡ€ΠΈΠΌΠ΅Ρ€ Π²ΠΎΠ·Π²Ρ€Π°Ρ‚Π° значСния ΠΎΡ‚ MsgBox ():

Dim nVar As Integer.

nVar = MsgBox («Π‘ΡƒΠ΄Π΅ΠΌ Π΄Π΅Π»Π°Ρ‚ΡŒ?», 65, «Π”СмонстрационноС ΠΎΠΊΠ½ΠΎ сообщСния»).

Если Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ nVar Ρ€Π°Π²Π½ΠΎ 1, Ρ‚ΠΎ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒ Π½Π°ΠΆΠ°Π» OK, Ссли 2, Ρ‚ΠΎ Cancel.

Иногда (Π½Π°ΠΏΡ€ΠΈΠΌΠ΅Ρ€, ΠΏΡ€ΠΈ ΠΏΠ°ΠΊΠ΅Ρ‚Π½ΠΎΠΉ ΠΎΠ±Ρ€Π°Π±ΠΎΡ‚ΠΊΠ΅ Π΄Π°Π½Π½Ρ‹Ρ…) Ρ…ΠΎΡ‚Π΅Π»ΠΎΡΡŒ Π±Ρ‹, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΎΠΊΠ½ΠΎ сообщСния Ρ‡Π΅Ρ€Π΅Π· Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ врСмя Π·Π°ΠΊΡ€Ρ‹Π²Π°Π»ΠΎΡΡŒ само собой. Π­Ρ‚ΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ ΠΏΡ€ΠΈ ΠΏΠΎΠΌΠΎΡ‰ΠΈ ΠΌΠ΅Ρ‚ΠΎΠ΄Π° Popup () ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π° Wscript.Shell. Для этого Π² ΠΏΡ€ΠΎΠ΅ΠΊΡ‚ Ρ‡Π΅Ρ€Π΅Π· мСню References Π½ΡƒΠΆΠ½ΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ ссылку Π½Π° Windows Script Host Object Model (Ρ„Π°ΠΉΠ» C: WINNTsystem32wshom. ocx), Π° ΠΏΠΎΡΠ»Π΅ этого ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄:

Dim oShell As New WshShell.

oShell.Popup «Test», 5.

Π’ ΠΎΡΡ‚Π°Π»ΡŒΠ½ΠΎΠΌ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΎΠ½Π°Π»ΡŒΠ½ΠΎΡΡ‚ΡŒ ΠΏΠΎΠ»ΡƒΡ‡ΠΈΠ²ΡˆΠ΅Π³ΠΎ ΠΎΠΊΠ½Π° ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²Π° с MsgBox (). Код Π²ΠΎΠ·Π²Ρ€Π°Ρ‚Π°, Ссли ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒ Π½Π΅ Π½Π°ΠΆΠ°Π» Π½ΠΈ Π½Π° ΠΊΠ°ΠΊΡƒΡŽ ΠΊΠ½ΠΎΠΏΠΊΡƒ, Ρ€Π°Π²Π΅Π½ -1.

Π‘Π°ΠΌΡ‹ΠΉ простой способ ΠΏΡ€ΠΈΠ½ΡΡ‚ΡŒ ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΡŽ ΠΎΡ‚ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Сля — Π²ΠΎΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒΡΡ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠ΅ΠΉ InputBox (). ВсС ΠΎΡ‡Π΅Π½ΡŒ просто :

Dim Input.

Input = InputBox («Π’Π²Π΅Π΄ΠΈΡ‚Π΅ Π’Π°ΡˆΠ΅ имя: «).

MsgBox («Π’Ρ‹ Π²Π²Π΅Π»ΠΈ: «& Input).

Для InputBox () ΠΌΠΎΠΆΠ½ΠΎ ΡƒΠΊΠ°Π·Π°Ρ‚ΡŒ тСкст ΠΏΡ€ΠΈΠ³Π»Π°ΡˆΠ΅Π½ΠΈΡ, Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ ΠΎΠΊΠ½Π°, Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ ΠΏΠΎ ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ, мСстонахоТдСниС ΠΎΠΊΠ½Π° ΠΈ Ρ„Π°ΠΉΠ» справки. НС Π·Π°Π±Ρ‹Π²Π°ΠΉΡ‚Π΅, Ρ‡Ρ‚ΠΎ всС Π²Π²ΠΎΠ΄ΠΈΠΌΠΎΠ΅ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Π΅ΠΌ InputBox () автоматичСски ΠΏΠ΅Ρ€Π΅Π²ΠΎΠ΄ΠΈΡ‚ Π² Ρ‚ΠΈΠΏ Π΄Π°Π½Π½Ρ‹Ρ… String — ΠΌΠΎΠΆΠ΅Ρ‚ ΠΏΠΎΡ‚Ρ€Π΅Π±ΠΎΠ²Π°Ρ‚ΡŒΡΡ Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ ΠΏΡ€Π΅ΠΎΠ±Ρ€Π°Π·ΠΎΠ²Π°Π½ΠΈΠ΅.

МоТно ΠΏΡ€ΠΈΠ²Π»Π΅Ρ‡ΡŒ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Π΅ΠΌ Π·Π²ΡƒΠΊΠΎΠ²Ρ‹ΠΌ сигналом. Для этой Ρ†Π΅Π»ΠΈ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€ Beep:

Dim I.

For I = 1 To 3.

Beep.

Next I.

ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ вСсь тСкст
Π—Π°ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ Ρ„ΠΎΡ€ΠΌΡƒ Ρ‚Π΅ΠΊΡƒΡ‰Π΅ΠΉ Ρ€Π°Π±ΠΎΡ‚ΠΎΠΉ