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

[µo°Ý] Excel 2010 «Ø¥ß«ö¶s ¿é¤J¯Á¤Þ­È Â^¨ú¸ê®Æ¦Ü«ü©wÄæ¦ì

[µo°Ý] Excel 2010 «Ø¥ß«ö¶s ¿é¤J¯Á¤Þ­È Â^¨ú¸ê®Æ¦Ü«ü©wÄæ¦ì

¥»©«³Ì«á¥Ñ givigan ©ó 2011-5-31 17:06 ½s¿è

³nÅé:Excel
ª©¥»:2010

¤j®a¦n
¤p§Ì¬Oexcelªº·s¤â
¥u·|¨Ï¥Î+-*/¤§Ãþªº¥Îªk

¤§«e¦b¬Y½æ³õ¤W¯Z®É
¦³¥Î¹L¤@­ÓÀÉ®×
¥¦ªº¥\¯à¬O
4­ÓÄæ¦ì
¨â¤T¦Êµ§ªº¸ê®Æ
³o¨â¤T¦Êµ§¸ê®Æ¬O­n±q§Oªº¦a¤è½Æ»s¹L¨Ó
¶K¨ì©w¦ì

µM«á®ÇÃ䦳­Ó«ö¶s ¼g½Ð«ö§Ú
«ö¤U¥h§q
¥L·|¶}©lÂ^¨ú
Äæ¦ì3¼Æ¦r¬°1¥H¤W´N±N¾ãµ§¸ê®ÆÂ^¨ú
¨Ã¥h±¼Äæ¦ì2¸ò4
¥u±NÄæ¦ì1¸ò3ªº­È
¶K¨ì«ü©w¦ì¸m
¥H¤W¬O¤§«e¬Ý¨ìªº¥\¯à


==================================
²{¶¥¬q¤p§Ì
¦³­Ó¥ô°È
®a¸ÌªºPOS¨t²Î¦³°ÝÃD
µLªk¦C¦L³f»ù¥d(¥H«e¤]¨S¦L¹L)
³£¥Î¼Ð»ù¦b°Ó«~¤W
¦ý¬OÁÙ¬O±`·|¦³ÅU«È°Ý»ù¿ú
©Ò¥H·Q»¡¥Î¦W¤ù¯È¦L³f»ù¥d¥X¨Ó
¦Aµô´N¦n¤F¤Ï¥¿»ù®æ¤£±`§ï

¥Ø«e±qPOS¨t²Î¸Ì­±§ä¨ì°Ó«~¸ê®ÆªºÀÉ®×.dbf
¥ÎEXCEL¶}±Ò«áÄæ¦ì±Nªñ¤G¤Q­Ó
¸ê®Æ«~¶µ¤W¸Uµ§(¤£¹L¦³«Ü¦h³£¨S½æ¤F)
¥t¦s¦¨excel
Àɮצp¤U
http://givigan.myweb.hinet.net/test.xlsx

·Q»¡¤]°µ­Ó«ö¶s
¦ý¬O¥i¥H¿é¤J°Ó«~½s¸¹¤ñ¦pA123(¥D¯Á¤Þ)
´N·|¦Û°ÊÂ^¨úA123³oµ§¸ê®Æªº °Ó«~½s¸¹¡B«~¦W¡B»ù®æ
¨ì§Ú³]­p¦nªº«ü©wÄæ¦ì¤¤
¦p

http://givigan.myweb.hinet.net/excel.xlsx

¦]A4¤@­¶¥i©ñ33­Ó«~¶µ
¬G°µ¥X¨Óªº«ö¶s¥i§_¦³33­Ó¥ikey in¯Á¤Þ­ÈªºÄæ¦ì
©ÎªÌ¬O¶È¦³¤@­ÓÄæ¦ìkey in
key in§¹«á¦]²Ä¤@­Ó¸Ì­±¦³­È
¬G¦Û°Ê¿ï¾Ü¨S¦³­ÈªºÄæ¦ì¶ñ¤J

¥H¤W¬O¤p§Ìªº·Qªk
¦]±µÄ²excel¤£¤[
¤£ª¾¦¹·Qªk¦³µL¥i¦æ©Ê
¦p¥i¦æ
¦³§_¥i°Ñ¦Òªº¬ÛÃö½d¨Ò¥i´£¨Ñ
·PÁÂ

¦^´_ 1# givigan
°ÝÃD¦b©ó¸ê®Æ®wªº®æ¦¡
½Ð¤W¶Ç²³æªºdbfÀÉ®×¥H¨Ñ´ú¸Õ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_  givigan
°ÝÃD¦b©ó¸ê®Æ®wªº®æ¦¡
½Ð¤W¶Ç²³æªºdbfÀÉ®×¥H¨Ñ´ú¸Õ
Hsieh µoªí©ó 2011-5-31 16:36

±z¦n
dbf¦b§O¥x¹q¸£¤W
ª½±µ¶}±Ò©ÈPOS¨t²Î¹B§@·|¥X°ÝÃD
©Ò¥H§Úªº·Qªk¬O§âdbfÀɮ׽ƻs¨ì³o¥x¹q¸£¤W¾Þ§@
½Æ»s¹L¨Ó¥H«áª½±µ¥Îexcel¶}±Ò
µM«áÀx¦s¦¨excelÀÉ®×
¦p¤U
http://givigan.myweb.hinet.net/test.xlsx

³o¼Ë·|¤ñ¸û¦n¾Þ§@¶Ü?

TOP

¦^´_ 3# givigan


    ¬JµMdbf¸ê®Æ¥Î½Æ»sªº¡A´N¶K¦b¦PÀɮתº¤u§@ªí¤º
¦bªí®æªº¤u§@鷺³]¸m¤@­Ó«ö¶s«ö¶sªºµ{¦¡½X¦p¤U
  1. Private Sub CommandButton1_Click()
  2. 10
  3. n = InputBox("¿é¤J¥D¯Á¤Þ", , "U952")
  4. ar = Array("½s¸¹", "«~¦W", "°â»ù")
  5. With Sheets("¤u§@ªí2")
  6. Set a = .[A:A].Find(n, lookat:=xlWhole)
  7. If a Is Nothing Then MsgBox "µL¦¹½s¸¹": GoTo 10
  8. Do Until n = ""
  9. If Application.CountBlank([A1:I24]) = 0 Then MsgBox "A4¯È±i¤wº¡": Exit Sub
  10. Set b = Range("A1:I24").SpecialCells(xlCellTypeBlanks).Cells(1)
  11. b.Resize(, 3) = ar
  12. b.Offset(1, 0).Resize(, 3) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 7).Value)
  13. n = InputBox("¿é¤J¥D¯Á¤Þ", , "U952")
  14. Loop
  15. End With
  16. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


¦nªº·PÁ¤j¤j
©ú¤Ñ¤W¯Z®É¦A¸Õ¸Õ¬Ý
¦hÁ«ü¾É

TOP

·PÁ¤j¤j¡A¥i¥H¥¿±`¨Ï¥Î¤F¡A
¤£¹L§Ú¤£·|¥Î«ö¶s@@
§Ú¥Î¤F­Ó¤å¦r¤è¶ô«ü©w¥¨¶°¹L¥h

³o¸òc++¦n¹³³á...

b.Resize(, 3) = ar
³o­Ó¬O©¹¥k²¾¤T®æªº·N«ä¶Ü?

TOP

¥»©«³Ì«á¥Ñ givigan ©ó 2011-6-6 19:33 ½s¿è
¦^´_  givigan


    ¬JµMdbf¸ê®Æ¥Î½Æ»sªº¡A´N¶K¦b¦PÀɮתº¤u§@ªí¤º
¦bªí®æªº¤u§@鷺³]¸m¤@­Ó«ö¶s«ö¶s ...
Hsieh µoªí©ó 2011-5-31 19:54



¤j¤j±z¦n¡A«e´X¤Ñ¥»¨Óµ{¦¡¥i¥H¥¿±`¹B§@
¤p§Ì­×§ï¤F´X­Ó´X­Ó¦a¤è«á
Åܦ¨¿é¤J°Ó«~½s¸¹¶i¥h ¸ê®Æ¦³´Ó¤J
¦ý¬O¿é¤J²Ä¤G­Ó½s¸¹ªº®É­Ô
¥LÁÙ¬O¥X²{¤W¤@µ§ªº¸ê®Æ
´Nºâ¿é¤Jªº¬O¨S¦³ªº½s¸¹
¤]¤£·|Åã¥ÜµL¦¹½s¸¹
¨ÌµM·|­«½Æ´Ó¤J²Ä¤@µ§ªº¸ê®Æ

¦Ó§Ú§â¤j¤jªº­ì¥»µ{¦¡½X¦A½Æ»s¹L¥h
§â¤u§@ªí¦WºÙ§ï¦^¤u§@ªí2
ÁÙ¬O¤@¼Ë±¡§Î@@
¥u·|¿é¤J²Ä¤@µ§ªº¸ê®Æ
¬O§Ú¹q¸£­þÃä³]©w°Ê¨ì¶Ü?

Àɮצp¤U
excel2.rar (31.62 KB)
©Î
http://givigan.myweb.hinet.net/excel2.rar
  1. Private Sub push()
  2. 10
  3. n = InputBox("¿é¤J°Ó«~½s¸¹", , "")
  4. ar = Array("½s¸¹", "«~¦W", "°â»ù")
  5. With Sheets("¸ê®Æ®w")
  6. Set a = .[A:A].Find(n, lookat:=xlWhole)
  7. If a Is Nothing Then MsgBox "µL¦¹½s¸¹": GoTo 10
  8. Do Until n = ""
  9. If Application.CountBlank([A1:I18]) = 0 Then MsgBox "A4¯È±i¤wº¡": Exit Sub
  10. Set b = Range("A1:I18").SpecialCells(xlCellTypeBlanks).Cells(1)
  11. b.Resize(, 3) = ar
  12. b.Offset(1, 0).Resize(, 3) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 7).Value)
  13. n = InputBox("¿é¤J°Ó«~½s¸¹", , "")
  14. Loop
  15. End With
  16. End Sub
½Æ»s¥N½X

TOP

  1. Private Sub push()
  2. 10
  3. n = InputBox("¿é¤J°Ó«~½s¸¹", , "")
  4. ar = Array("½s¸¹", "«~¦W", "°â»ù")
  5. With Sheets("¸ê®Æ®w")
  6. Set a = .[A:A].Find(n, lookat:=xlWhole)
  7. If a Is Nothing Then MsgBox "µL¦¹½s¸¹": GoTo 10
  8. Do Until n = ""
  9. If Application.CountBlank([A1:I18]) = 0 Then MsgBox "A4¯È±i¤wº¡": Exit Sub
  10. Set b = Range("A1:I18").SpecialCells(xlCellTypeBlanks).Cells(1)
  11. b.Resize(, 3) = ar
  12. b.Offset(1, 0).Resize(, 3) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 7).Value)
  13. n = InputBox("¿é¤J°Ó«~½s¸¹", , "")
  14. Set a = .[A:A].Find(n, lookat:=xlWhole)
  15. If a Is Nothing Then MsgBox "µL¦¹½s¸¹": GoTo 10
  16. Loop
  17. End With
  18. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsieh µoªí©ó 2011-6-6 22:11


­ì¨Ó¦b¨ºÃä¦h¨º¨â¦æ´N¥i¥H¸Ñ¨M¤F@@
¦hÁ¤j¤j«ü¾É

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD