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

[µo°Ý] ¸ê®Æ®w¬d¸ß¹Ï¤ù

[µo°Ý] ¸ê®Æ®w¬d¸ß¹Ï¤ù

½Ð°Ý¤j¤j
¦pªþ¥ó
¨Ì·Ó½s¸¹¹ï·Ó¸ê®Æ®w±NC4~H4¡AC8~H8¶ñ¤J¡A¤]¥i¬d¸ß¦p¤UC12¹Ï¤ù¡A
¨Ï¥Î¥¨¶°¬d¸ß
ÁÂÁ¤F

^^
1234.rar (381.88 KB)

¦^´_ 1# ÅQ®ð¨«¥þ¨­
³o¸Ì¦³¤u§@ªí¤Wªº§@ªk¥i°Ñ¦Ò...
  1. Option Explicit
  2. Sub Ex()
  3.     Dim M As Integer
  4.     With Sheets("´M§ä")
  5.     M = Application.Match(.[a2], Sheets("¸ê®Æ®w").[a:a], 0)     '¦p¤u§@ªí¤W¨Ï¥ÎMatch¨ç¼Æ
  6.         .Pictures("Picture 1").Formula = "¸ê®Æ®w!N" & M         '¹Ï¤ù¦WºÙ  : "Picture 1"
  7.         '.Pictures(1).Formula = "¸ê®Æ®w!N" & M                  '¹Ï¤ù¯Á¤Þ­È: 1
  8.         .[C5:H5] = Sheets("¸ê®Æ®w").Range("B" & M & ":G" & M).Value
  9.         .[C9:H9] = Sheets("¸ê®Æ®w").Range("H" & M & ":M" & M).Value
  10.     End With
  11. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD