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

vba ¤ñ¹ïÀx¦s®æ½d³ò¤º¦r¦ê¨ÃÂà¸m«á¥[¤J¦r¤¸

vba ¤ñ¹ïÀx¦s®æ½d³ò¤º¦r¦ê¨ÃÂà¸m«á¥[¤J¦r¤¸

¤j®a¦n¡A¤p©f¦]¤u§@Ãö«Y­è¾Ç²ßvba
¨Ï¥Îª©¥»¬°2003

¿ý»s¥¨¶°«á±o¨ì¥H¤Uµ{¦¡
    Range("C10:H10").Select
    ActiveCell.FormulaR1C1 = "=TRANSPOSE(­º­¶!R14C2:R34C2)"
    Selection.FormulaArray = "=TRANSPOSE(­º­¶!R14C2:R34C2)"

§Ú·Q§ï¦¨§Ú»Ý­nªº±ø¥ó
1.C13:AB13Àx¦s®æ¤¤­Y¦³"Hz"ªº¦r¦ê¡A«h¦b¨º¤@¦C¤¤¸ÓÀx¦s®æ§t¦³°õ¦æÂà¸mªº°Ê§@(µù¡G­º­¶!R14C2:R34C2¤º¬°©Ò³]©w¦nªº¸ê®Æ¡A¦³¥]§tªÅ¥Õ)¡A­Y¸ÓÀx¦s®æ¤º¨S¦³"Hz"ªº¦r¦ê«h¤£»Ý­n¸g¹LÂà¸m

2.°õ¦æÂà¸m«á¡A¦³¸g¹LÂà¸mªºÀx¦s®æ¡A°£¤FC¦Cªº²Ä¤@®æ¥~³£­n¥[¤J"CL :"

¤j·§ª¾¹D­n¨Ï¥Îfor »Pif then¡A¥i¬O¤p©f­è¾Ç²ßvba¡AÁÙ¤£ª¾¹D«ç»ò°Â°_¨Ó
¤£ª¾¹D¸Ó«ç»ò¤U¤â¥h¾Ç²ß³o¼Ëªº»y¨¥¡A¯S¨Ó½Ð±Ð¦U¦ì¤j¤j¡A·PÁ¡C

¦^´_ 1# t591nm

¤è«K¤W¶ÇÀɮ׶ܡH§_«h«ÜÃø²z¸Ñ§Aªº°ÝÃD

TOP

¦p½d¨ÒÀÉ©Ò¥Ü

test.rar (7.02 KB)

¦¹¬°½d¨ÒÀÉ

TOP

¦^´_ 3# t591nm
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim AR, i As Integer
  4.     AR = Application.Transpose([­º­¶!B14:B34].Value) '½d³ò¾É¤J°}¦C
  5.     With Sheet2.Range("C10:K10")
  6.         .Clear
  7.        For i = 1 To .Cells.Count
  8.             If .Cells(i).Offset(3) = "Hz" Then
  9.                 .Cells(i) = AR(i)
  10.                 If i > 1 Then .Cells(i) = "CL:" & .Cells(i)
  11.             End If
  12.        Next
  13.     End With
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE


   

¦p¹Ï©Ò¥Ü¥X²{(¤W­±¤@±i¤U­±¤@±i)
§Ú¥u¬O§ï¤F¥¨¶°¦WºÙ¤Î¦Cªº½d³ò¦Ó¤w
½Ð°ÝSheet2 ¬O«ü¸Ó¤u§@ªí¦WºÙ¶Ü
¨º¦pªG§Úªº¤u§@ªí¦WºÙ¬O¼Æ¦r¥[­^¤å
¬O§_¤]¥i¥H§âSheet2ª½±µ§ï¦¨¼Æ¦r¥[­^¤å

·PÁ¦^µª

TOP

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-7-28 16:26 ½s¿è

¦^´_ 5# t591nm

¥i¨Ì¾Ú¤U¹Ï¨Ò¤l§ó§ï§AªºSheet?
   

TOP

¦^´_ 6# lpk187



·P®¦¤j¤j
¤w¸g¦¨¥\
ÁÂÁ±z

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD