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

[¤À¨É] Excelªº¦w¥þ©Ê³]©w°ª®É,¬¡­¶Ã¯µLªk¶}±Ò . ¥i«OÅ@¬¡­¶Ã¯ªºÁô±K©Ê.

[¤À¨É] Excelªº¦w¥þ©Ê³]©w°ª®É,¬¡­¶Ã¯µLªk¶}±Ò . ¥i«OÅ@¬¡­¶Ã¯ªºÁô±K©Ê.

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-3-27 07:28 ½s¿è

§@ªk: ¬¡­¶Ã¯¥[¤J Excel 4.0 ¥¨¶°ªí

¬¡­¶Ã¯ ´¡¤JExcle 4.0¥¨¶° ¤u§@ªí
¥¨¶°¦w¥þ©Ê ³]©w³Ì°ª®É µLªk¶}±Ò ¦¹¬¡­¶Ã¯
¦Û­q±K½X¥HºûÅ@ÀɮתºÁô±K

¦Û©w±K½X.rar (23.45 KB)

Private Sub UserForm_Initialize()
    Dim I As Integer, R As Range
  '  Application.Visible = False    'ÁôÂà Excel  ->¥¿±`¨Ï¥Î®É½Ð¸Ñ°£«e­±ªºª`¸Ñ " ' "
    ªí³æÀY
    Check_time = 0
    Set R = Sheet1.Range("¨Ï¥ÎªÌ").CurrentRegion.Offset(1)   '"¨Ï¥ÎªÌ" ¤w¦b¤u§@ªí¤¤©w¸q¦WºÙ
    Set R = R(1).Resize(R.Rows.Count - 1, R.Columns.Count)
    For I = 1 To 3
        Me.Controls("Label" & I).Caption = Sheet1.Range("¨Ï¥ÎªÌ").Cells(1, I)
    Next
    Me.ComboBox1.ColumnCount = 1
    Me.ComboBox1.List = R.Value
End Sub

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2011-3-27 12:37 ½s¿è

¦^´_ 2# GBKEE


³o«h¬OGB¥Sµ¹§ÚªºÆF·P
§@¥X¨ÓªºÀÉ®×
Åý¤H®a¤£ª¾¹D¡Aªí³æ«ö¶s¬O«ü©w¨ì¨º­Ó¥¨¶°
¬Ý¤F´Nª¾¹D­«ÂI


»¡©ú:
ªí³æ«ö¶s«ü©w¥¨¶°®É¡A§Ú­Ì¨Ï¥Î©w¸q¨Ó¨ú¥N«ü©wªº¥¨¶°
¦A§â©w¸qÁôÂð_¨Ó


Åý¤H®a¤£ª¾¹D±zªºªí³æ«ö¯Ã¬O«ü©w¨ì¨º­Ó¥¨¶°
¦Û³]±K½X.rar (25.43 KB)

TOP

¦^´_ 3# HUNGCHILIN
¯u¬O¦³³Ð·N
¦^´_ 4# chin15
ª©¥Dªº·N«ä¬O¥¨¶°¦w¥þ©Ê³]¬°°ª®É¤´¦³¿ìªk°õ¦æ¥¨¶°¶Ü
¤£¬Oªº
¬¡­¶Ã¯ ´¡¤JExcle 4.0¥¨¶° ¤u§@ªí,·í¥¨¶°¦w¥þ©Ê³]¬°°ª®É,´NµLªk¶}±Ò¦¹¬¡­¶Ã¯.
¥i«OÅ@¬¡­¶Ã¯ªºÁô±K©Ê.

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2011-4-1 22:00 ½s¿è

¥H¤U³o«h³Ì­«­nªºÆ[©À¦b©ó

1.¥i¥H¥Î©w¸q¨ú¥Nª«¥óªº"«ü©w¥¨¶°"

2.¬JµM¥i¥H¥Î©w¸q´N¥i¥H¥Î¤½¦¡¨ç¼Æ§@³\¦h§PÂ_¡A¦Ó¤£¥Î¼g¦b¥¨¶°¤¤¡A¥i¥H¦h¤@ºØ«ü©w»P§PÂ_¤À¬yªº¼gªk

²³æ¼gªk¦p¤U:

¨Ï¥Î©w¸q·í§@ª«¥óªº«ü©w¥¨¶°A.rar (18.46 KB)
¨þ¨þÁ{®É§@ªº½d¨Ò¡A³y¦¨¿ù°È¤w§ó·sÀÉ®×

TOP

¦^´_ 5# HUNGCHILIN
Àɮפ¤ªº¦WºÙ ¨Ï¥ÎªÌ ªº°Ñ·Ó¶]±¼¤F =Sheet1!#REF!
­×¥¿=Sheet1!$A$2 ¥i¥¿±`¬Ý¨ì½d¨Ò
°õ¦æ¤U¦Cµ{§Ç  ¥iª¾ HUNGCHILIN ª©¥Dªº¥©«ä
  1. Sub Ex()
  2.     Dim a
  3.     For Each a In ThisWorkbook.Names
  4.         a.Visible = True
  5.     Next
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# HUNGCHILIN

½Ð°Ýªü¦N¤j©Ò¿×ªº"©w¸q"¬O¥u«ü"´¡¤J"->"¦WºÙ"->"©w¸q"¶Ü?
§Ú¸ÕµÛ¾Þ§@¡A©w¸qÀx¦s®æA1¦WºÙ¬°test¡A¨Ã¦b"«ü©w¥¨¶°"¨ºª½±µ¿é¤J¦WºÙÀɮצW.xls!test¡A¦p¹Ï...ÁÂÁ¡C


PS.¦n¤£®e©ö¿n¤À¨ì¤F¥i¥H¤U¸üªþ¥ó¡A¶}¤F´X­Ó¦U¦ì«e½úªº§@«~¤w¸gÅý§Ú¾Ç¨ì«Ü¦h¡A·PÁ¡C

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2013-1-21 20:16 ½s¿è

¹ï¥u¬O"´¡¤J"->"¦WºÙ"->"©w¸q"
½d¨ÒÀɮפº
§Ú¨S¦³¥Î²Ä3­Ó¥¨¶°°µ§PÂ_.¦ý¬°¤°»ò ¦bA2¿é¤J1»P¿é¤J2®É «ö«ö¶s®É·|¦Û°Ê§PÂ_¨Ï¥Î¤£¦Pªº¥¨¶°?

µª®×:
Àɮפº¦³©w¸q¦WºÙ TEST=IF(Sheet1!$A$2=1,µ{¦¡.AAAA,µ{¦¡.bbbb)
¦A§âTEST©w¸qÁôÂÃ.±ýÆ[¬Ý¦¹©w¸q.½Ð§Q¥Î#6ªº¥N½XÅã¥Ü¦¹TEST©w¸q

¥i¬Ý¨ìÀɮפº¥u¦³¨â­Ó¥¨¶°
Private Sub AAAA()
MsgBox "A"
End Sub
Private Sub bbbb()
MsgBox "b"
End Sub

³o­Ó½d¨Ò¬O¦b»¡.¨Ï¥Î¤½¦¡¤]¥i¥HÅý«ö¶s¨Ï¥ÎAAAA©ÎBBBB¥¨¶° ¤£¥Î¥Î¨ì²Ä¤T­Ó¥¨¶°

TOP

¦^´_ 8# HUNGCHILIN


ªü¦N¤j¡A§Ú»~·|¤F¡A¥»¨Ó§Ú¬O©w¸qtest°Ñ·Ó¨ì¬Y­ÓÀx¦s®æ¡A¦¹Àx¦s®æªº¤½¦¡=IF(Sheet1!$A$2=1,µ{¦¡.AAAA,µ{¦¡.bbbb)¡A
­ì¨Ó¬O°Ñ·Ó¨ºÃä´N­n=IF(Sheet1!$A$2=1,µ{¦¡.AAAA,µ{¦¡.bbbb)¡A¤w¸g¥i¥H°õ¦æ¡A¤Sªø¨£ÃѤF¡IÁÂÁ¡C

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD