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

½Ð±Ð¤@¨Ç Ãö©ó ¯x°}«ü©w ¬ÛÃö°ÝÃD

½Ð±Ð¤@¨Ç Ãö©ó ¯x°}«ü©w ¬ÛÃö°ÝÃD

Q1 ­Y·Q±N¤U¦Cµ{¦¡ §ï¬° Åã¥ÜLABEL ªºNAME À³¸Ó­n«ç­×§ï¤ñ¸û§´·í  ( Userform1   ¤º¦³ LABEL 1~10)
Q2 ¯x°} ªí¥Ü  Label ·Q½Ð°ÝQ2 code µ{¦¡½X­n«ç­×§ï?


Q1 code
  1. Dim st As Range

  2. For pgx = 1 To 10
  3.    
  4.     Set s1t = ¤u§@ªí1.Cells(pgx, 1)
  5.     s1t.Value = pgx
  6.    
  7.     Set s2t = ¤u§@ªí1.Cells(1, pgx)
  8.     s2t.Value = s1t.Value

  9.     Set s3t = ¤u§@ªí1.Cells(s1t, s2t)
  10.     s3t.Value = s1t.Value
  11.    

  12. Cells(s1t, s2t).Select
  13.     Selection.ColumnWidth = 5
  14.     Selection.RowHeight = 25



  15. Next pgx
½Æ»s¥N½X
Q2 code
for i = 1 to 10
i = label & i .caption
cells(i,1)=label & i  



next i

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

¦^´_ 1# mark15jill
¬Ý¤£À´§Aªº»Ý¨D
§Ú²q¬O§AµLªk«ü©w¨ìLabel
TypeName.rar (12.76 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD