excel ³ø»ùªí³æ¤W¿é¤J¤£¦PªºItem¦p¦ó±a¤J¤£¦Pªº¹Ï¤ù
- ©«¤l
- 44
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2015-10-30
|
excel ³ø»ùªí³æ¤W¿é¤J¤£¦PªºItem¦p¦ó±a¤J¤£¦Pªº¹Ï¤ù
½Ð°Ý¦U¦ì°ª¤â,§Ú¦bexcel ªí³æ¤Wªº¹Ï¤ù(Image)
·Q¨Ì·Óªí³æ¤W¿é¤J¤£¦PªºItem±a¤J¤£¦Pªº¹Ï¤ù(¹Ï¤ùÀx¦s¦bD:\catalogue¸Ì)
µ{¦¡½XÀ³¸Ón«ç»ò¼g?? |
-
-
³ø»ù³æ.rar
(27.66 KB)
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-2-19 14:35 ½s¿è
¦^´_ 1# h99949 - Const ¹w³]·Ó¤ùºô§} = "http://blog-imgs-27-origin.fc2.com/p/o/k/pokomin/TOTAL.jpg"
- Const ¹w³]·Ó¤ù = "d:\·Ó¤ù.gif"
- Private Sub UserForm_Initialize() '¶}±Òªí³æªì©lµ{¦¡
- ¤U¸üºô¸ô¹Ï¤ù
- With Image1
- .Picture = LoadPicture(¹w³]·Ó¤ù) '¸ü¤J¹Ï¤ù
- .PictureSizeMode = fmPictureSizeModeZoom '¹Ï¤ù¼Ò¦¡
- End With
- TextBox1.SetFocus
- End Sub
- Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'ªí³æÃö³¬
- Kill ¹w³]·Ó¤ù '§R°£
- End Sub
- Private Sub TextBox1_Change()
- If TextBox1.Value = "" Then Exit Sub
- Dim cell As Range
- Set cell = Sheets("ÂøµæÁç").Columns(1).Find(TextBox1.Value, lookat:=xlWhole)
- If Not cell Is Nothing Then
- If Dir("D:\catalogue\" & cell & ".*") <> "" Then
- Image1.Picture = LoadPicture("d:\catalogue\" & Dir("D:\catalogue\" & cell & ".*"))
- End If
- TextBox2.Value = cell.Offset(, 1).Value
- TextBox3.Value = cell.Offset(, 2).Value
- TextBox4.Value = cell.Offset(, 3).Value
- TextBox5.Value = cell.Offset(, 4).Value
- TextBox6.Value = cell.Offset(, 5).Value
- TextBox7.Value = cell.Offset(, 32).Value
- TextBox8.Value = cell.Offset(, 33).Value
- Else
- Image1.Picture = LoadPicture(¹w³]·Ó¤ù)
- TextBox2.Value = ""
- TextBox3.Value = ""
- TextBox4.Value = ""
- TextBox5.Value = ""
- TextBox6.Value = ""
- TextBox7.Value = ""
- TextBox8.Value = ""
- End If
- End Sub
- Private Sub TextBox1_AfterUpdate()
- If TextBox2.Value = "" Then
- TextBox2.SetFocus
- Else
- CommandButton2.SetFocus
- End If
- End Sub
- Private Sub ¤U¸üºô¸ô¹Ï¤ù()
- Dim xml As Object '¥Î¨Ó¨ú±oºô¶¸ê®Æ
- Dim stream 'As ADODB.stream '¥Î¨ÓÀx¦s¤G¶i¦ìÀÉ®×
- Set xml = CreateObject("Microsoft.XMLHTTP")
- Set stream = CreateObject("ADODB.stream")
- xml.Open "GET", ¹w³]·Ó¤ùºô§}, 0
- xml.send
- With stream
- .Open
- .Type = 1
- .write xml.ResponseBody
- If Dir(¹w³]·Ó¤ù) <> "" Then Kill ¹w³]·Ó¤ù
- .SaveToFile (¹w³]·Ó¤ù)
- .Close
- End With
- Set xml = Nothing
- Set stream = Nothing
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 44
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2015-10-30
|
§A¦n,¹Ï¤ù¬O©ñ¦b¹q¸£ªºD:\catalogue¸Ì¨Ã¤£¬Oºô§}¸Ì,½Ð°Ýµ{¦¡¸Ó¦p¦óקï? |
|
|
|
|
|
|
- ©«¤l
- 44
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2015-10-30
|
¹Ï¤ù¤£¬O©T©wªº¥¦¬O¥i¥H¨Ì¿é¤Jªº¸ê®Æ¤£¦P§@ÅÜ¤Æ |
|
|
|
|
|
|
- ©«¤l
- 44
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2015-10-30
|
¦^´_ 2# GBKEE
¥i¥H±N¹w³]ªº·Ó¤ù§ï¦¨¹q¸£¸Ìªº¹Ï¤ù¶Ü? |
|
|
|
|
|
|
- ©«¤l
- 44
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2015-10-30
|
¦^´_ 6# GBKEE
ª©¥D§A¦n,¤w¸g¥H¥Î¤F,ÁÂÁÂ
¦ý§Ú·Q¦bªí³æ¿é¤JItem«á±a¥X¨Óªº¬ÛÃö¸ê®Æ,¥i¥H¦bªí³æ¤Wקï«áª½±µÀx¦s¨ì¬Û¹ïÀ³ªºÀx¦s®æ¤W,µ{¦¡À³¸Ó¦p¦ó°µ×§ï©O? |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-2-21 13:57 ½s¿è
¦^´_ 7# h99949 - Option Explicit '±j¨î«Å§iÅܼÆ
- Option Base 1 '°}¦Cªº¯Á¤ÞÈ,«ü©w¤UȬ° 1
- Const ¹w³]·Ó¤ùºô§} = "http://blog-imgs-27-origin.fc2.com/p/o/k/pokomin/TOTAL.jpg" '«ü©w±`¼Æ
- Const ¹w³]·Ó¤ù = "d:\·Ó¤ù.gif"
- Dim Rng As Range, Text_Ar(), AR(), Rng_Text As String
- Private Sub UserForm_Initialize() '¶}±Òªí³æªì©lµ{¦¡
- Dim i As Integer
- For i = 1 To 7
- ReDim Preserve Text_Ar(1 To i)
- Set Text_Ar(i) = Me.Controls("TextBox" & i + 1) '±N±±¨î¶µ"TextBox?" ¸m¤J°}¦C¤¤
- Next
- AR = Array(1, 2, 3, 4, 5, 32, 33) '³f¸¹¸ê®Æªº¦ì¸m
- TextBox1.SetFocus
- ¤U¸üºô¸ô¹Ï¤ù
- With Image1
- .Picture = LoadPicture(¹w³]·Ó¤ù) '¸ü¤J¹Ï¤ù
- .PictureSizeMode = fmPictureSizeModeZoom '¹Ï¤ù¼Ò¦¡
- End With
- End Sub
- Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'ªí³æÃö³¬
- Kill ¹w³]·Ó¤ù '§R°£
- End Sub
- Private Sub TextBox1_Change()
- Dim i As Integer
- If TextBox1.Value = "" Then Exit Sub
- Set Rng = Sheets("ÂøµæÁç").Columns(1).Find(TextBox1.Value, lookat:=xlWhole)
- If Not Rng Is Nothing Then
- If Dir("D:\catalogue\" & Rng & ".*") <> "" Then
- Image1.Picture = LoadPicture("d:\catalogue\" & Dir("D:\catalogue\" & Rng & ".*"))
- End If
- Rng_Text = "" '²M°£ °O¾Ð¸ê®Æ
- For i = 1 To UBound(AR)
- Rng_Text = Rng_Text & Rng.Offset(, AR(i)) '°O¾Ð¸ê®Æ
- Text_Ar(i).Text = Rng.Offset(, AR(i)).Value '¾É¤J¸ê®Æ¦bTextBox?
- 'Rng.Offset(, i).Text :Àx¦s®æÅã¥Üªº¼Æ¦r®æ¦¡
- 'Rng.Offset(, i).Value :Àx¦s®æ¯u¥¿ªº¼Æ¦r
- 'Åã¥Üªº¼Æ¦r®æ¦¡,¤£¤@©wµ¥©ó,¯u¥¿ªº¼Æ¦r.
- Next
- Else
- Image1.Picture = LoadPicture(¹w³]·Ó¤ù)
- For i = 1 To UBound(AR)
- Text_Ar(i).Text = ""
- Next
- End If
- End Sub
- Private Sub TextBox1_AfterUpdate()
- If TextBox2.Value = "" Then
- TextBox2.SetFocus
- Else
- CommandButton2.SetFocus
- End If
- End Sub
- Private Sub CommandButton1_Click()
- Dim s As String, i As Integer
- If Rng Is Nothing Then
- s = "³f¸¹¤¤¨S¦³ " & TextBox1
- ElseIf Rng_Text = Join(Text_Ar, "") Then
- s = "³f¸¹" & TextBox1 & "¸ê®Æ¨S¦³×§ï !!"
- End If
- If s = "" Then
- If MsgBox(TextBox1 & "קï¸ê®Æ !!", 32 + vbYesNo) = vbYes Then
- For i = 1 To UBound(AR)
- Rng.Offset(, AR(i)).Value = Text_Ar(i) '¾É¤JTextBox?¼Æ¦r(¤å¦r«¬ºA)¨ìRng
- Rng.EntireRow = Rng.EntireRow.Value '¼Æ¦r(¤å¦r«¬ºA)Âର ¼Æ¦r(¼Æ¦r«¬ºA)
- Next
- End If
- End If
- End Sub
- Private Sub ¤U¸üºô¸ô¹Ï¤ù()
- Dim xml As Object '¥Î¨Ó¨ú±oºô¶¸ê®Æ
- Dim stream 'As ADODB.stream '¥Î¨ÓÀx¦s¤G¶i¦ìÀÉ®×
- Set xml = CreateObject("Microsoft.XMLHTTP")
- Set stream = CreateObject("ADODB.stream")
- xml.Open "GET", ¹w³]·Ó¤ùºô§}, 0
- xml.send
- With stream
- .Open
- .Type = 1
- .write xml.ResponseBody
- If Dir(¹w³]·Ó¤ù) <> "" Then Kill ¹w³]·Ó¤ù
- .SaveToFile (¹w³]·Ó¤ù)
- .Close
- End With
- Set xml = Nothing
- Set stream = Nothing
- End Sub
- Private Sub cal_Click()
- Dim x As Integer, y As Integer, s As String
- x = Val(mypv) '³æ»ù
- y = Val(myrate)
- If y <> 0 Then s = Round(x / y, 2) '¶×²v
- ratepay.Caption = s
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 44
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2015-10-30
|
¦^´_ 8# GBKEE
Private Sub TextBox1_Change()Åܼƥ¼©w¸q¸Ó¦p¦óקï |
-
-
¥¼©R¦W.JPG
(196.99 KB)
|
|
|
|
|
|