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

[µo°Ý] ~ µo²{¤@­Ó·sªº°ÝÃD Ãö©óIF§PÂ_¦¡

¥»©«³Ì«á¥Ñ willy1205 ©ó 2014-4-11 14:36 ½s¿è

¦^´_ 20# GBKEE

­è¦n¹³¨S¦s¦n¥¨¶°¦A©ñ¤@¦¸ ex.zip (47.55 KB)
©È¤S¨S¦s¦n §Ú§â¥¨¶°½Æ»s¦Aµ§°O¥»

¬Oªº¡A§PÂ_¥D¿ì©Î¨ó¿ìªº¦W¤l¬O­þ­Ó´N§â¸ê®Æ¾É¤J¨ì¨º­Ó¤Hªºsheet¸Ì­±¡A
§Ú¬O¼gIf Worksheets("sheet1").Range("B8").Value = "¥Ò§g" Then §Q¥ÎÀx¦s®æ¤Wªº¦W¤l§PÂ_¿é¤Jªº¸ê®Æ¸Ó¥h¥Ò§gªºsheetÁÙ¬O¨ä¥L¤Hªº
©Ò¥H¦³70­Ó§PÂ_¦¡...

ex.zip (47 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-11 16:40 ½s¿è

¦^´_ 21# willy1205
©Ò¥H¦³70­Ó§PÂ_¦¡...

¤£»Ý¦p¦¹³Â·Ð
  1. Sub RoundedRectangle1_Click()
  2.     Dim NewRow As Integer, E As Range, Sh As Worksheet
  3.     Set Sh = Worksheets("Sheet1")  'Åܼƫü©w¬°¤u§@ªí **¤U­±ªºµ{¦¡½X¦p¦³§ó§ï ¤u§@ªí **§ï³oÅܼƥi¬Ù³Â·Ð
  4.     NewRow = Sh.Range("J34").Value
  5.    ' Worksheets("sheet1").Range("B8").Value  'ºÞ¥L¬O ¥Ò§g,¤A§g,¤þ§g ¥u­n³o¤u§@ªí(¦WºÙ)¦³¦b¬¡­¶Ã¯¤¤,
  6.     For Each E In Sh.Range("B8,B10")  '¾É¤JB8,B10 ªºÀx¦s®æ
  7.         With Worksheets(E.Value)   'E.Value ªº¤u§@ªí
  8.             .Cells(NewRow, 1) = Sh.Range("C5")
  9.             .Cells(NewRow, 2) = Sh.Range("C6").Value
  10.             .Cells(NewRow, 3) = Sh.Range("I12").Value
  11.             .Cells(NewRow, 4) = Sh.Range("I13").Value
  12.             .Cells(NewRow, 6) = Sh.Range("G22").Value
  13.             If E.Address = "$B$8" Then   '¥D¿ì
  14.                 .Cells(NewRow, 7) = Sh.Range("H30")
  15.                 Sh.Range("J34") = NewRow
  16.             Else                                  '¨ó¿ì
  17.                 .Cells(NewRow, 7) = Sh.Range("H32")
  18.                 Sh.Range("J35") = NewRow
  19.             End If
  20.         End With
  21.     Next
  22.     MsgBox "New Data added", vbOKOnly, "Data"
  23. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 22# GBKEE


    ÁÂÁª©¥D¡A§Ú¦A¸Õ¸Õ¬Ý

ÁÙ¦³¦pªGªì¾ÇªÌ·Q§ä®Ñ¦Û­×VBAªº¸Ü¦³±ÀÂ˪º¶Ü??
¥Ø«e³£¥u¬Oºô¸ô§äPDF®ÑÄy¦Û¤vºCºCºN...¦³ÂIÃøÀ´

TOP

¦^´_ 23# willy1205
¦h¬Ý¬Ýµ{¦¡°Ï¦^ÂЪºµ{¦¡½X,¤£À´ªº½Æ»s¤U¨Ó,¬Ý¬Ývba µøµ¡ªº»¡©ú.
¦A¤£©úÁA,¥iµo°Ý,¥ú¬Ý®Ñ¤£¦pµL®Ñ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 24# GBKEE


    okok ÁÂÁª©¥D

TOP

ÎȼOBAªº¥Îªk.

TOP

¦^´_ 22# GBKEE


    ª©¥D¦³­Ó°ÝÃD¡A´N¬O¤A§g¬O¨ó¿ì¡A©Ò¥H¤A§g§ìªºª÷ÃBÀ³¸Ó¬OH32¡A¥u¦³³o­Ó·|¸ò¥Ò§g¤£¦P¡A§Ú¦Û¤v­è¤]¨Sµo²{¨ì¡A
¥Ñ©ó¥L¬O¨ó¿ì©Ò¥H¥Lªº¸ê®Æ­n¦b²Ä27¦æ¶}©l¡A¦ý§Ú«ö¤F¾É¤J¸ê®Æ¥H«áJ35Åܦ¨7¡A©Ò¥H¤A§g¸ê®Æ¤]¥X²{¦b²Ä7¦æ¡A
³o­n«ç»ò­×§ï¤~¥i¥H??

TOP

¦^´_ 22# GBKEE


    ÁÂÁª©¥D ¸ê®Æ§ì¨ú¨S¿ù¡A¥i¬OJ35ÁÙ¬OÅܦ¨7¡A¤A§gªº¸ê®ÆÁÙ¬O¥X²{¦b²Ä7¦æ¦Ó¤£¬O²Ä27¦æ­C

TOP

¦^´_ 28# willy1205
  1. Option Explicit
  2. Sub RoundedRectangle1_Click()
  3.     Dim NewRow As Integer, E As Range, Sh As Worksheet
  4.     Set Sh = Worksheets("Sheet1")  'Åܼƫü©w¬°¤u§@ªí **¤U­±ªºµ{¦¡½X¦p¦³§ó§ï ¤u§@ªí **§ï³oÅܼƥi¬Ù³Â·Ð
  5.    'Worksheets("sheet1").Range("B8").Value  'ºÞ¥L¬O ¥Ò§g,¤A§g,¤þ§g ¥u­n³o¤u§@ªí(¦WºÙ)¦³¦b¬¡­¶Ã¯¤¤,
  6.     For Each E In Sh.Range("B8,B10")  '¾É¤JB8,B10 ªºÀx¦s®æ
  7.         '§PÂ_ ¥D¿ì,¨ó¿ì ªº¦C¸¹
  8.         If E.Address = "$B$8" Then   '¥D¿ì
  9.             NewRow = Sh.Range("J34").Value
  10.         Else                         '¨ó¿ì
  11.             NewRow = Sh.Range("J35").Value
  12.         End If
  13.         
  14.         With Worksheets(E.Value)   'E.Value ªº¤u§@ªí
  15.             .Cells(NewRow, 1) = Sh.Range("C5")
  16.             .Cells(NewRow, 2) = Sh.Range("C6").Value
  17.             .Cells(NewRow, 3) = Sh.Range("I12").Value
  18.             .Cells(NewRow, 4) = Sh.Range("I13").Value
  19.             .Cells(NewRow, 6) = Sh.Range("G22").Value
  20.             '§PÂ_¥D¿ì,¨ó¿ì ­n§ïÅܪº¦ì¸m¦C¸¹
  21.             If E.Address = "$B$8" Then   '¥D¿ì
  22.                 .Cells(NewRow, 7) = Sh.Range("H30")
  23.             Else                          '¨ó¿ì
  24.                 .Cells(NewRow, 7) = Sh.Range("H32")
  25.             End If
  26.         End With
  27.     Next
  28.     MsgBox "New Data added", vbOKOnly, "Data"
  29. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 29# GBKEE


    ¤F¸Ñ ÁÂÁª©¥D

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD