ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó«ü©w¿é¥XªºÄæ¦ì

[µo°Ý] ¦p¦ó«ü©w¿é¥XªºÄæ¦ì

¿é¥XÄæ¦ì¥i§_³]©w¬°Åý¨Ï¥ÎªÌ¦Û¦æ¨M©w
¨Ò¦p:
­pºâ2*3+5
A¨Ï¥ÎªÌ·QÅýµª®×¿é¥X¦bB5,
B¨Ï¥ÎªÌ·Q¿é¥X¦bC3
µ{¦¡¥i¥HÅý¨Ï¥ÎªÌ¦b¨C¤@¦¸°õ¦æ®É¦Û¦æ¨M©w­n¿é¥XªºÄæ¦ì

½Ðª©¤W¥ý¶iÀ°¦£¸Ñ´b¤F

1.¦@¥Î? ¤£¦@¥Î?
2.¥i¦Ò¼{¦b¶}±Ò®É¡A¼W¥[¤@­Óªí³æ ©Î ´£¥Ü°T®§®Ø Åý ¨Ï¥ÎªÌ³]©w

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

Ãi±o¥Î¦Û­qªí³æ¥i¥H§ï¥ÎApplication.InputBox
  1. Sub Test()
  2.     Dim rngTarget As Range
  3.    
  4.     On Error Resume Next
  5.     Set rngTarget = Application.InputBox(prompt:="¿ï¾Ü¿é¥XÀx¦s®æ", Type:=8)
  6.     If Err.Number <> 0 Then Exit Sub    'avoid cancel/esc error
  7.     On Error GoTo 0
  8.         
  9.     rngTarget.Value = 2 * 3 + 5
  10. End Sub
½Æ»s¥N½X
¦^´_ 1# acdx
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 3# stillfish00
½Ð°Ýstillfish00, Type:=8ªº·N«ä¬O?

TOP

¦^´_ 4# acdx
F1 , Application.InputBoxªº»¡©ú¦³¼g
  1. ¤U¦Cªí®æ¦C¥X¥i¥H¦b Type ¤Þ¼Æ¤¤¶Ç»¼ªº­È¡A¥¦¥i¥H¬O³æ¤@­È©Î­ÈªºÁ`©M¡C¨Ò¦p¡A¹ï©ó¦P®É¥i¥H±µ¨ü¤å¦r¤Î¼Æ¦rªº¿é¤J¤è¶ô¡AType ´N³]©w¬° 1 + 2¡C

  2. ­È ·N¸q
  3. 0 ¤½¦¡
  4. 1 ¼Æ¦r
  5. 2 ¤å¦r (¦r¦ê)
  6. 4 ÅÞ¿è­È (True ©Î False)
  7. 8 Àx¦s®æ°Ñ·Ó¡Aµø¬° Range ª«¥ó
  8. 16 ¿ù»~­È¡A¨Ò¦p #N/A
  9. 64 °}¦C­È
½Æ»s¥N½X
Type³]¬°8 , ªí¥Ü¥u¯à¿é¤JÀx¦s®æ°Ñ·Ó
§A¥i¥H¦b¸õ¥Xªºµøµ¡«á , ¿é¤J®Ø¥´¤JA1 , ©Îª½±µÂI¿ïA1Àx¦s®æ³£¥i¥H
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-3-27 11:02 ½s¿è

¦^´_ 4# acdx

VBA­nºë¶i ­n¦h¦h ¸Ô¬ÝVBA ªº»¡©ú
InputBox  ¨Ï¥Î¦³¤À¨âºØ  (¤èªk,¨ç¼Æ)
  1. InputBox ¨ç¼Æ Åã¥Ü¤@¹ï¸Ü¤è¶ô¨Ó°µ¬°´£¥Ü¡Aµ¥¨Ï¥ÎªÌ¿é¤J¤å¦r©Î«ö¤U«ö¶s¡A¨Ã¶Ç¦^¥]§t¤å¦r¤è¶ô¤º®eªºString¡C
  2. »yªk InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
  3. InputBox ¨ç¼Æªº»yªk¨ã¦³¥H¤U´X­Ó«ü¦W¤Þ¼Æ¡G
  4. ³æ¤¸ »¡©ú
  5. prompt ¥²­n¤Þ¼Æ¡C¥Î¨Ó°µ¬°¹ï¸Ü¤è¶ô°T®§ªº¦r¦ê¹Bºâ¦¡¡Cprompt ªº³Ì¤jªø«×¤j¬ù¬O 1024 ­Ó¦r¤¸¡A¥Ñ¨Ï¥Î¦r¤¸ªº¼e«×¨Ó¨M©w¡C¦pªG prompt ¶W¹L¤@¦æ¡A±z¥i¥H¦b¦U¦æ¤§¶¡¥Î´_¦ì¦r¤¸(Chr(13))¡B´«¦æ¦r¤¸(Chr(10))©Î¬O´_¦ì¦r¤¸»P´«¦æ¦r¤¸ªº²Õ¦X (Chr(13) & Chr(10)) ¨Ó°µ°Ï¹j¡C
  6. title ¿ï¾Ü©Ê¤Þ¼Æ¡CÅã¥Ü¦b¹ï¸Ü¤è¶ô¼ÐÃD¦Cªº¦r¦ê¹Bºâ¦¡¡C¦pªG¨S¦³ title¡A«h¥HÀ³¥Îµ{¦¡ªº¦WºÙ°µ¬°¼ÐÃD¡C
  7. default ¿ï¾Ü©Ê¤Þ¼Æ¡CÅã¥Ü¦b¤å¦r¤è¶ô¤¤ªº¦r¦ê¹Bºâ¦¡¡A¦b¨S¦³´£¨Ñ¨ä¥L¿é¤J®É°µ¬°¹w³]­È¡C¦pªG¨S¦³ default¡A«h¤å¦r¤è¶ô´N¬OªÅ¥Õªº¡C
  8. xpos ¿ï¾Ü©Ê¤Þ¼Æ¡C¦¨¹ï«ü©wªº¼Æ­È¹Bºâ¦¡¡A¥Î¨Ó«ü©w¹ï¸Ü¤è¶ôªº¥ª½t»P¿Ã¹õ¥ª½tªº¤ô¥­¶ZÂ÷¡C¦pªG¨S¦³ xpos¡A«h¹ï¸Ü¤è¶ô·|¥X²{¦b¤ô¥­¤è¦Vªº¤¤¶¡¡C
  9. ypos ¿ï¾Ü©Ê¤Þ¼Æ¡C¦¨¹ï«ü©wªº¼Æ­È¹Bºâ¦¡¡A¥Î¨Ó«ü©w¹ï¸Ü¤è¶ôªº¤W½t»P¿Ã¹õªº¤W½tªº¶ZÂ÷¡C¦pªG¨S¦³ ypos¡A¹ï¸Ü¤è¶ô·|©ñ¸m©ó¿Ã¹õ««ª½¤è¦V¤T¤À¤§¤@ªº¦ì¸m¡C
  10. helpfile ¿ï¾Ü©Ê¤Þ¼Æ¡C¦r¦ê¹Bºâ¦¡¡A¥Î¨Ó«ü©w¹ï¸Ü¤è¶ô¤å¦r·PÀ³»¡©úªº»¡©úÀɮסC¦pªG«ü©w¤F helpfile¡A«h±z¤]¥²¶·«ü©w context¡C
  11. context ¿ï¾Ü©Ê¤Þ¼Æ¡C¼Æ­È¹Bºâ¦¡¡A¥Ñ»¡©úÀɮתº§@ªÌ«ü©wµ¹¬Y­Ó»¡©ú¥DÃDªº»¡©ú¥DÃD¥N½X ¡C¦pªG«ü©w¤F context¡A«h¤]¥²¶·«ü©w helpfile¡C
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁÂGBKEE»Pstillfish00
¨ü¯q¨}¦h

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2015/7/7 05:31): §AªºÀɮ׽ФW¶Ç

¬°¦ó·|¥X²{¥u¯à¦bÀx¦s®æ¤º¿é¤J°Ñ·Ó¦Ó¤£¯àª½±µÂI¿ïÀx¦s®æ?³o¬O¦b­þÃä³]©w?
Ãi±o¥Î¦Û­qªí³æ¥i¥H§ï¥ÎApplication.InputBox¦^´_  acdx
stillfish00 µoªí©ó 2015-3-25 20:19

TOP

¦^´_ 8# acdx
«á¨Óµo²{«e­±¦³¨Ç¤F¤@¦æ
Application.ScreenUpdating = False
±N¥¦§ï¬°
Application.ScreenUpdating = True
¤w¥i¸Ñ¨M

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD