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

[µo°Ý] EXCEL ªí³æ¤º¤U©Ô¦¡¿ï³æ»PÀx¦s®æ³sµ²

[µo°Ý] EXCEL ªí³æ¤º¤U©Ô¦¡¿ï³æ»PÀx¦s®æ³sµ²

¦U¦ì¤j¤j±z¦n:
¤p§Ì·Q©óVBAªí³æ¤¤¥[¤J¤@¤U©Ô¦¡¿ï³æ.
¦Ó­ì¥»ªºEXCELÀx¦s®æ¤w¸g¦³¤U©Ô¦¡¿ï³æ¤F.
¬O¥Î¤F¸ê®ÆÅçÃҤΧPÂ_¦¡µ¥¤@°ï¦¡¤lºc¦¨ªº.
¦³¨S¦³¤èªkª½±µ±Nªí³æ¤U©Ô¦¡¿ï³æ¤º®eª½±µµ¥©ó
²{¦³ªº¤U©Ô¦¡Àx¦s®æ¤ºªº¤U©Ô¤º®e
¦Ó¤£»Ý­n­«·s­«§ì·½ÀY¸ê®Æªº»yªk©O?

¦pªG·íªìEXCEL¦³©w¸q¦WºÙªº¸Ü§Ú¾å±o¦p¦ó°µ..
¦ý·íªì§Ú³£¨S©w¸qQQ..¤Ó¦h¤U©Ô¦¡¿ï³æ>"<
·PÁ¦U¦ì¤j¤jÀ°¦£½ç±Ð

½d¨Ò.rar (14.53 KB)
½d¨ÒÀɦp¤W..¦]¬°·íªì¿ï³æ¨S³]¦WºÙ©w¸q
Ãþ¦ü½d¨Ò¤¤¤@¼Ë..½d¨Ò¤¤§Ú¥u¦C¥X´X­Ó..
¹ê»Ú¤W·íªì»s§@®É°µ¤F¦n´X¤Q­Ó³oºØ¸ê®ÆÅçÃÒ¤¤¥[¤J§P§O¦¡ªº»yªk
­Y­n¤@¤@§ï¦¨©w¸q¦WºÙÅýVBAªí³æ¤U©Ô·|ªá«Üªø¤@¬q®É¶¡..¦Ó¥B¦³¥i¯à¶Ã±¼
©Ò¥H·Q­n½Ð±Ðªº¬O¬O§_¦³ª½±µ±N¥Î»yªk¨Ïªí³æ¤¤¤U©Ô¤º®e=Àx¦s®æ¤U©Ô¤º®e(¦p¦³§PÂ_¦¡¤@¦P½Æ»s¹L¥h)
·PÁ¦U¦ì¤j¤j¤£§[«ü±Ð>"<

TOP

¦^´_ 2# baiecesi
ªí³æªº±Æ¦C»PÀx¦s®æ¿é¤Jªº±Æ¦C¤è¦¡¤£¦P¡A±NµLªk°µ¹ïÀ³°Ê§@
´Nºâ§A©w¸q§¹¦WºÙÁÙ¬O­n¤@¤@ªº¶ñ¤J
¦Ó¥B¦]¬°Àx¦s®æÅçÃÒ¬O³s°Ê©Êªº
§AÁÙ¥²¶·±Nªí³æªº¤U©Ô­È¿é¤J¨ì¹ïÀ³ªºÀx¦s®æ¤º¤~¦æ
­n¦Ò¼{ªí³æ»P¤u§@ªí¤§¶¡ªº¤¬°ÊÃö«Y¡A­«·s¦w±Æ§Aªºªí³æ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

®¦..·PÁÂHsieh¤j..¤j·§¤F¸Ñ±zªº·N«ä¤F..
¤]´N¬O»¡ªí³æ¸Ì±±¨î¶µ­n»PÀx¦s®æ°µ¤U©Ô³s°Ê
¨Ó·½¤´µM±o­«¿é.

§Ú¦b·Q¬O¤£¬O¦]¬°EXCEL¤º³]­pªº¤U©Ô»P
VBAªº¤U©Ô­ì¥»¬O¨â­Ó¤À¶}ªº¶}µo­ì²z
©Ò¥H§Y¨Ïµ²¦X«á¥Ø«e¤´µLªk±N¨äµø¬°¦P¤@ª«¥ó­ì²z¨Ó¹F¨ì¦P¨Bªº®ÄªG
¬ðµM·Q¨ì¥i¯à¬O¦]¬°³o¼Ë¡A¤£ª¾¹ï¤£¹ï>"<

¨º¤p§Ì¬ðµM­l¥Í¥X¤@­Ó°ÝÃD
©óEXCEL¤¤ Àx¦s®æ¤º·|ÀHµÛÀx¦s®æ²¾°Ê¦P¨B§ïÅܹïÀ³Àx¦s®æ(¦pªG¤£¥[¤W$ªº¸Ü)
§Ú¾á¤ß­Y§Ú±N¤W­zªºªF¦è­«·s¿é¤Jªí³æ«á
­Y¤§«áÀx¦s®æ¦ì¸mÅܰʤF
VBA¦³µL¤èªk¤@°_¦P¨B§ïÅܹïÀ³ªºÀx¦s®æ
¤ñ¦p»¡:EXCEL¤¤§Ú±NB1²¾¦ÜE2
VBA¯à°÷¦Û°Ê±NSheet1.cells(1,2)Åܦ¨Sheet1.cells(2,5)¶Ü@@?

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-8-16 16:17 ½s¿è

¦^´_ 4# baiecesi
¨Ì§AªþÀɪºªí³æ©Ò¼gªºµ{¦¡½X ¸Õ¸Õ¬Ý À³¬O³o¤è­±ªº§@ªk
  1. Dim Ar()
  2. Private Sub UserForm_Initialize()
  3. 'Initialize ¨Æ¥ó  µo¥Í¦b¤@­Óª«¥ó¸ü¤J«á¡A¦ý©|¥¼Åã¥Üªº®É­Ô¡C
  4.     ComboBox3.List = Array("Type1", "Type2", "Type3")   'B(Á`­È) ªº¿ï¶µ
  5.     'B(Á`­È) ªº¿ï¶µ ¥i«ü¦V¤u§@ªíªº¦ì¸m
  6.     ReDim Ar(UBound(ComboBox3.List))           '­«¸m°}¦C¤¸¯À¼Æ
  7.     '------¦]¤l¿ï¶µ  ¥i«ü¦V¤u§@ªíªº¦ì¸m
  8.     Ar(0) = Array(1.15, 1.25)                  'B(Á`­È) ¿ï¶µ1 ªº¦]¤l¿ï¶µ
  9.     Ar(1) = Array(2.5, 5)                      'B(Á`­È) ¿ï¶µ2 ªº¦]¤l¿ï¶µ
  10.     '------¿ï¶µ3 ªº¦]¤l¿ï¶µ ½Ð¦Û­×§ï
  11.   '  Ar(2) = Array(2.5, 5)                      'B(Á`­È) ¿ï¶µ3 ªº¦]¤l¿ï¶µ
  12.     TextBox1.TabIndex = 1                      '­«·s³]©wªí³æ¤W±±¨î¶µªº TabIndex ¶¶§Ç
  13.     ComboBox3.TabIndex = 2
  14.     ComboBox1.TabIndex = 3
  15. End Sub

  16. Private Sub ComboBox3_Change()
  17.     ComboBox1.Clear
  18.     Label5.Caption = ""
  19.     If ComboBox3.ListIndex > -1 Then ComboBox1.List = Ar(ComboBox3.ListIndex)
  20.    
  21. End Sub
  22. Private Sub CommandButton1_Click()
  23.     Dim xT(1 To 3) As Double
  24.     If ComboBox3.ListIndex = -1 Or ComboBox3.ListIndex = -1 Then
  25.         Label5.Caption = "ComboBox1.Text * ComboBox3.Text"
  26.     Else
  27.         Select Case ComboBox3.ListIndex       '
  28.             Case 0                            'Type1
  29.                 xT(1) = 7.58
  30.                 xT(2) = 0.8
  31.             Case 1                            'Type2
  32.                 xT(1) = 7.9661
  33.                 xT(2) = 0.8
  34.             Case 2                            'Type3
  35.                 xT(1) = 8.1238
  36.                 xT(2) = 0.7243
  37.         End Select
  38.         xT(3) = Application.Evaluate("Exp(" & xT(1) & "+" & xT(2) & "* Ln(" & Val(TextBox1) & "))") / 1000
  39.         Label5.Caption = Round((550 / 500) * xT(3) * Val(ComboBox1), 2)
  40.     End If
  41. End Sub
  42. Private Sub CommandButton2_Click()
  43.     End
  44. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD