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

[µo°Ý] ¦p¦ó³]¥ß¥i«ü©w­pºâ´Á¼Æ½d³òªºInputBox¡H

[µo°Ý] ¦p¦ó³]¥ß¥i«ü©w­pºâ´Á¼Æ½d³òªºInputBox¡H

¥»©«³Ì«á¥Ñ Airman ©ó 2018-6-10 00:59 ½s¿è

¦p¦³­«½ÆÃD¤§¼{~½Ð§R°£«eÃD¡CÁÂÁÂ!

´ú¸ÕÀÉ :
2018-0610-Q-1 -.rar (66.23 KB)
¥DÀÉDATA¡J
¥Ø«e¦C103µ{¦¡½X¬°Qdown = .[R6].End(xlDown).Row
«h¥u±NRÄæ³Ì«á´Á¼Æªº·í¦CQ : S¸ê®Æ¶K¤WT4 : T6¡F¥H¨ÑT3¤Î«áÄòªºT7¤½¦¡­pºâ¡C

°²³]¦C103µ{¦¡½X¬°Qdown = .[R6].End(xlDown).Row - 1
«h¥u±NRÄæ³Ì«á­Ë¼Æ²Ä¤G­Ó´Á¼Æªº·í¦CQ : S¸ê®Æ¶K¤WT4 : T6¡F¥H¨ÑT3¤Î«áÄòªºT7¤½¦¡­pºâ¡C

°²³]¦C103µ{¦¡½X¬°Qdown = .[R6].End(xlDown).Row - 2
«h¥u±NRÄæ³Ì«á­Ë¼Æ²Ä¤T­Ó´Á¼Æªº·í¦CQ : S¸ê®Æ¶K¤WT4 : T6¡F¥H¨ÑT3¤Î«áÄòªºT7¤½¦¡­pºâ¡C

¨ä¾l.....¥H¦¹Ãþ±À¡C

»Ý¨D¡J
·Q¥H¼W¥[¤@­ÓUpcount(¦WºÙ¸ÑÃDªÌ¥i¾Ü©y¨î©w)ªºInputBox¡AÂǨä¿é¤Jªº¼Æ¦r(1~99)¡A
¨Ó«ü©wT4 : T6(§t)¤Î¨ä©¹¥k¦UÄæ­n¶K¤WRÄæ³Ì«áªºN­Ó´Á¼Æ¤§¦U·í¦CªºQ : S¸ê®Æ~
EX1¡J·íInputBox¿é¤J1®É¡A«hT4 : T6¶K¤WRÄæ³Ì«á¤@­Ó´Á¼Æ·í¦CªºQ : S¸ê®Æ~
      §Yµ¥¦P¦C103µ{¦¡½X¬°Qdown = .[R6].End(xlDown).Rowªº®ÄªG¡C

EX2¡J·íInputBox¿é¤J2®É¡A«hT4 : T6¶K¤WRÄæ³Ì«á­Ë¼Æ²Ä¤G­Ó´Á¼Æ·í¦CªºQ : S¸ê®Æ¤Î
      U4 : U6¶K¤WRÄæ³Ì«á¤@­Ó´Á¼Æ·í¦CªºQ : S¸ê®Æ~
      §Yµ¥¦P¦C103µ{¦¡½X¬°Qdown = .[R6].End(xlDown).Row - 1 & .[R6].End(xlDown).Rowªº®ÄªG¡C

EX3¡J·íInputBox¿é¤J3®É¡A«hT4 : T6¶K¤WRÄæ³Ì«á­Ë¼Æ²Ä¤T­Ó´Á¼Æ·í¦CªºQ : S¸ê®Æ¤Î
      U4 : U6¶K¤WRÄæ³Ì«á­Ë¼Æ²Ä¤G­Ó´Á¼Æ·í¦CªºQ : S¸ê®Æ¤Î
      V4 : V6¶K¤WRÄæ³Ì«á¤@­Ó´Á¼Æ·í¦CªºQ : S¸ê®Æ~
      §Yµ¥¦P¦C103µ{¦¡½X¬°Qdown = .[R6].End(xlDown).Row - 2 & .[R6].End(xlDown).Row - 1 &
      .[R6].End(xlDown).Rowªº®ÄªG¡C

¨ä¾l.....¥H¦¹Ãþ±À¡C


½Ð°Ý :
Upcountªº InputBox­n«ç»ò³]¥ß?
¦C103ªºµ{¦¡½X­n¦p¦ó¦A¼¶¼g?

¥H¤W ·q½Ð¦U¦ìVBA°ª¤âÀ°¦£©M½ç±Ð! ÁÂÁÂ!

¦^´_ 1# Airman

Qdown = .[R6].End(xlDown).Row §AªºÀɮפW·|¬O¨ì³Ì«á¤@¦C (¨S¦³Äæ³Ì«á´Á¼Æ)
½Ð¦A­×¥¿¤@¤U
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2018-6-13 11:10 ½s¿è

¦^´_ 2# GBKEE
ÁÂÁ±zªº¦^À³^^

¸É¥R»¡©ú:
RÄ檺´Á¼Æ=B : H¦³Åã¥Ü$R$5­ÈªºAÄæ´Á¼Æ

Qdown = .[R6].End(xlDown).Row '=¨ìRÄ檺³Ì«á¤@­Óªº´Á¼Æ

¦p¦³»~~½Ð½ç¥¿!ÁÂÁ±z^^

Qdown = .[R6].End(xlDown).RowªºÁ`ªí®ÄªGÀÉ®×(°õ¦æ¹Bºâ«á)
01.png
2018-6-13 11:03

03.png
2018-6-13 11:04


¨ä¾l½Ð¨£Á`ªí½d¨Ò~ 49FD_³Ì«á´Á¼Æ(Á`ªí)_1_10_200´Á.rar (9.6 KB)

»Ý¨D:¦p1#
·q½Ð½ç±Ð!·P®¦^^

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2018-6-13 11:48 ½s¿è

¦^´_ 2# GBKEE
¦A¸É¥R:
¥Ø«e¥u¯à±o~
·í¦C103¬°
Qdown = .[R6].End(xlDown).RowªºÁ`ªí®ÄªGÀÉ®×(°õ¦æ¤½¦¡¹Bºâ«á)
©Î
Qdown = .[R6].End(xlDown).Row - 1 ªºÁ`ªí®ÄªGÀÉ®×(°õ¦æ¤½¦¡¹Bºâ«á)
§Y¥²¶·¤À§O§ó§ïµ{¦¡½X«á¦A¤À¶}°õ¦æ¡C

»Ý¨D:
§Æ±æ¼W¥[ ¤@­ÓUpcountªºInputBox¡AÂǨä¿é¤Jªº¼Æ¦r(EX:2)¡A
«h¥i±o¦p~ 49FD_³Ì«á´Á¼Æ(Á`ªí)_2_10_200´ÁªºÁ`ªí®ÄªGÀÉ®×(°õ¦æ¤½¦¡¹Bºâ«á)¡C
½d¨ÒÀÉ_2.rar (36.82 KB)
½Ð°Ý :
Upcountªº InputBox­n«ç»ò³]¥ß?
¦C103ªºµ{¦¡½X­n¦p¦ó¦A¼¶¼g?

·q½Ð±z¼·¤¾½ç±Ð! ·P®¦^^

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-6-14 07:56 ½s¿è

¦^´_ 4# Airman
¥i¬ÝExcelªº»¡©ú  InputBox
¦³ InputBox ¨ç¼Æ, InputBox¤èªk¥i¹B¥Î,¦Û§Ú½m²ß¬Ý¬Ý
  1. '**Rows.Count -> ¤u§@ªíªºÁ`¦æ¼Æ(¦Uª©¥»Á`¦æ¼Æ¤£¤@¼Ë)**
  2.             If .[R6].End(xlDown).Row = Rows.Count Then
  3.                 MsgBox "¨S¦³´Á¼Æ": Exit Sub
  4.             Else
  5.                 Qdown = .[R6].End(xlDown)
  6.             End If
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE

ÁÂÁ±zªº«ü¾É~§Ú¸Õ¸Õ¬Ý^^

TOP

¦^´_ 5# GBKEE
®ÄªGÀɭӼƿù»~.png
2018-6-22 05:03

¥i§_¦A³Ò¾r±z¼·¤¾½ç¥¿¡G
DATA!¦C70~¦C94©M¦C97©M¦C100µ{¦¡½Xªº¿ù»~~
UpRow = ¶ñ¤J"1-3"
·|¦h¶]¥X¤U¦C2­Ó¿ù»~ªº®ÄªGÀÉ®×~
T49_SÄæ³Ì«án­Ó­È_10_0_200´Á
T49_SÄæ³Ì«án­Ó­È_10_-1_200´Á
ÁÂÁ±z^^

´ú¸ÕÀÉ    T49_SÄæ³Ì«án­Ó­È.rar (29.67 KB)

'UpRow..............................................................................¦C69
    M3 = 0                                   ¡¥¦C70
    sta = 0
For x = 1 To Len(uprowx)
    If Mid(UpRow, x, 1) = "," Then
        M3 = M3 + 1
        ReDim Preserve In3rr(M3 - 1)
        In3rr(M3 - 1) = --Mid(uprowx, sta + 1, 2)
        sta = x
        x = x + 2
    End If
    If Mid(UpRow, x, 1) = "-" Then
        For y = Mid(uprowx, sta + 1, 2) To Mid(uprowx, x + 1, 2)
            M3 = M3 + 1
            ReDim Preserve In3rr(M3 - 1)
            In3rr(M3 - 1) = y
        Next
        sta = x + 3
        x = x + 5
    End If
    If x = Len(uprowx) Then
        M3 = M3 + 1
        ReDim Preserve In3rr(M3 - 1)
        In3rr(M3 - 1) = --Mid(uprowx, sta + 1, 2)
    End If
Next                                             ¡¥¦C94
'.................................................................................
For n = 1 To M
For n3 = 1 To M3                                   ¡¥¦C97
   
    NUM = In1rr(n - 1)
    UpRow = In3rr(n3 - 1)                           ¡¥¦C100

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2018-6-23 09:02 ½s¿è

¦^´_ 5# GBKEE

¸É¥R»¡©ú:
»Ý¨D¬O~
EX:UpRow = ¶ñ¤J"1-3"¡A¥i¥H±o¨ìT49_SÄæ³Ì«án­Ó­È_10_1_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_2_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_3_200´Áµ¥¤T­Ó®ÄªGÀɮסC
EX:UpRow = ¶ñ¤J"2,5,8"¡A¥i¥H±o¨ìT49_SÄæ³Ì«án­Ó­È_10_2_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_5_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_8_200´Áµ¥¤T­Ó®ÄªGÀɮסC

¦ý¥Ø«eµ{¦¡½Xªº®ÄªG¬O~
UpRow = ¶ñ¤J"1-3"¡A·|¶]¥XT49_SÄæ³Ì«án­Ó­È_10_-1_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_0_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_1_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_2_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_3_200´Áµ¥¤­­Ó®ÄªGÀɮסC

EX:UpRow = ¶ñ¤J"2,5,8"¡A¥u¶]¥XT49_SÄæ³Ì«án­Ó­È_10_2_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_5_200´Áµ¥¤G­Ó®ÄªGÀɮסC
   
µ{¦¡½X¿ù»~ªº¦a¤è¡A·q½Ð±z½ç¥¿!ÁÂÁ±z^^"

TOP

¦^´_ 8# Airman
NUM = "10" ' InputBox("½Ð¿ï¾Ü¤½¦¡ªº°_¨´§Ç¸¹", "§Ç¸¹10-99")  **§Ç¸¹10-99 ¬O«ü­þ¸Ì**
Nrange = "200" ' InputBox("½Ð¿é¤J¹Bºâªº°_¨´´Á¼Æ", "¿é¤J´Á¼Æ")  ** '°_¨´´Á¼Æ¦b­þ¸Ì**
UpRow = "1-3" ' InputBox("½Ð¿ï¾ÜSÄæ³Ì«án­Ó­È", "¿é¤J1­Ó-239­Ó") ** ¦³¬ÝÀ´¤F**
­n§ìDataªº­þ¨Ç¸ê®Æ¨ì
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\T49_SÄæ³Ì«án­Ó­È_" & NUM & "_" & UpRow & "_" & mthcount & "´Á.xls"
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE
¶Wª©¤j:
ÁÂÁ±zªº­@¤ß¦^À³©M«ü¾É¡C

±ß¤W§Ú­«·s¾ã²z¥DÀÉ©M®ÄªGÀɤΤå¦r»¡©ú«á¡A©ú¤Ñ¦A½Ð±z½ç±Ð!ÁÂÁ±z^^

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD