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

VBAªí³æ¿é¤J·|ªþ¥[³sµ²

¦^´_ 4# Jared
2#¤£¬O¤w¸g¼g¤F¶Ü?
  1.   With Sheet1
  2.     With .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
  3.       .Hyperlinks.Add .Cells(1, 1), TextBox1
  4.       .Value = "³sµ²¸ô®|"
  5.     End With
  6.   End With
½Æ»s¥N½X

TOP

¦^´_ 6# Jared
  1.   With Sheet1
  2.     With .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
  3.       .Resize(, 5).Value = Ar
  4.       .Hyperlinks.Add .Offset(, 2), ComboBox3
  5.       .Offset(, 2).Value = "³sµ²¸ô®|"
  6.     End With
  7.   End With
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD