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

[µo°Ý] «H«Ê¦C¦L

[µo°Ý] «H«Ê¦C¦L

¦U¦ì°ª¤â¤j¤j
  Àµ¨D¤j¤j¨ó§U
1.¶}±Ò®É·|±N©w¸q"½T»{Äæ"¤ºªº¸ê®Æ²M°£
2.«ö¦C¦L®É,¥u·|°e¥X¦Lªí¾÷³Ì«e­±¦³vªº¸ê®Æ
3.¦C¦Lªº®æ¦¡¬°¦b"¸ê®ÆºÝ"sheet¤¤ªºH1¤¤©Ò¿ï¤§¤u§@ªí(¥»®×¬O"¤j«H«Êor¤p«H«Ê")
4."**"®É°±¤î¦C¦L

¥H¤W

«H«Ê§Ö³t¦C¦L.rar (13.69 KB)

«H«Ê§Ö³t¦C¦L.rar (12.53 KB)

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-11-3 00:05 ½s¿è

¦^´_ 1# zamamilo

®a¸Ì¨S¦Lªí¾÷¡A¨SªkÀ°§A´ú¸Õ
­×§ï§Aªºµ{¦¡¦p¤U¡A§ATRY¬Ý¬Ý

Private Sub Workbook_Open()
B = Split(Names("½T»{Äæ").Value, "!")  '¨ú±o"½T»{Äæ"¦WºÙªº¦a§}
Range(B(1)).ClearContents  '²MªÅ½T»{Ä椺ªº­È
End Sub

Private Sub CommandButton1_Click()
Dim r&
With Sheets([H1].Value)  '¨ú±o[H1]Àx¦s®æªº­È¡A¨Ã§ä¨ì¦¹¦WºÙªº¤u§@ªí
  For r = 2 To Cells(Rows.Count, 2).End(xlUp).Row  '¸ê®Æ½d³ò
    If Cells(r, 1) = "**" Then Exit Sub 'Â÷¶}µ{§Ç¡A°±¤î¦C¦L
    If Cells(r, 1) = "V" Then  '¦³"V"¤~¦C¦L
      .[H2] = Cells(r, 2)
      .[F6] = Cells(r, 3)
      .[E11] = Cells(r, 4)
      .[H3] = Cells(r, 5)
      .[B4] = Cells(r, 6)
      .[B6] = Cells(r, 7)
      '.PrintPreview '¹wÄý
      .PrintOut '¦C¦L
    End If
  Next r
End With
End Sub

«H«Ê§Ö³t¦C¦L-new.rar (15.5 KB)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 2# n7822123

ÁÂÁÂn7822123¤j¤j

  ¥Ø«e´ú¸Õ¨S°ÝÃD.

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD