vba ·j´MÀx¦s®æ«á¡A¶K¤W¨ä¥LÄæ¦ì

snoopykay

¦U¦ìª©¤jª©¤Í¦n
  ¤p§Ì³oÃ䦳­ÓEXCEL °ÝÃD·Q½Ð±Ð¸û¡A¦pªG§Ú­n¦b¥kÃä¿é¤J§Ú·Q­nªº¥N½X(¦p¥kÃ䪺KA800)¡A
µM«á·j´M¥ªÃäA¨ºÄæ¡A·j´M¨ì¤§«á¡A¶K¤W¸òÀH¨ä(B~I¡ABC ¶K¥kÃä²Ä¤@¦C¼Æ¦r)¡A½Ð°Ý³o¼Ë¸Ó¦p¦ó¼g³o­ÓVBA
·PÁÂ!!~

A                   B             C               D              E              F          G               H           I
KA100        0.2410         0.2150         0.2425         0.2200         0.2475         0.2200         0.2460         0.2150                                        
KA200        0.2460         0.2150         0.2475         0.2200         0.2525         0.2200         0.2510         0.2150                                 KA100       
KA300        0.2510         0.2150         0.2525         0.2200         0.2575         0.2200         0.2560         0.2150                                 0.2410         0.2150
KA400        0.2560         0.2150         0.2575         0.2200         0.2625         0.2200         0.2610         0.2150                                 0.2425         0.2200
KA500        0.2610         0.2150         0.2625         0.2200         0.2675         0.2200         0.2660         0.2150                                 0.2475         0.2200
KA600        0.2660         0.2150         0.2675         0.2200         0.2725         0.2200         0.2710         0.2150                                 0.2460         0.2150
KA700        0.2710         0.2150         0.2725         0.2200         0.2775         0.2200         0.2760         0.2150                                        
KA800        0.2760         0.2150         0.2775         0.2200         0.2825         0.2200         0.2810         0.2150

luhpro

¦^´_ 1# snoopykay

1. Sub nn()
   
2.   Dim iI%, iCol%
   
3.   Dim lTop&
   
4.   Dim sStr$
   
5.   Dim rTar As Range
   
6.   
   
7.   Range([K2], [L8]).Clear
   
8.   sStr = InputBox("½Ð¿é¤J­n·j´Mªº¸ê®Æ", "´M§ä¸ê®Æ")
   
9.   Set rTar = Range("A:A").Find(sStr, LookIn:=xlValues)
   
10.   If Not rTar Is Nothing Then
    
11.     With rTar
    
12.       iCol = 11
    
13.       lTop = 2
    
14.       Cells(lTop, iCol) = .Value
    
15.       For iI = 0 To 3
    
16.         Range(.Offset(, iI * 2 + 1), .Offset(, iI * 2 + 2)).Copy Cells(lTop + iI + 1, iCol)
    
17.       Next
    
18.     End With
    
19.   End If
    
20. End Sub

½Æ»s¥N½X

VBA·j´MÀx¦s®æ«á¡A¶K¤W¨ä¥LÄæ¦ì.zip (7.77 KB)

¤U¸ü¦¸¼Æ: 10

2016-5-12 22:25

mave

¦^´_  snoopykay
luhpro µoªí©ó 2016-5-12 22:25

½Ð±Ðluhpro ¤j¤j

iI% ÁÙ¦³ iCol% «á­±ªº%²Å¸¹¬O¥NªíÔ£·N«ä©O?

¤p§Ì¤~¾Ç²Ê²L¡A·Ð½Ð«ü±Ð

luhpro

¦^´_ 3# mave
½Ð°Ñ¦Ò¤pÀ°¤âªº»¡©ú:

Integer ¸ê®Æ«¬ºA

Integer ÅܼƫY¥H½d³ò¬° -32,768 ¨ì 32,767 ¤§ 16 ¦ì¤¸ (2 ­Ó¦ì¤¸²Õ) ¼Æ¦rªº§Î¦¡Àx¦s¡CInteger ªº«¬ºA«Å§i¦r¤¸¬O¦Ê¤À¤ñ²Å¸¹(%)¡C

ML089

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xF As Range
    If Target.Address <> "$K$2" Then Exit Sub
    Set xF = [Sheet1!A:A].Find([K2].Value, lookat:=xlWhole)
    If xF Is Nothing Then MsgBox "§ä¤£¨ì": Exit Sub
    For i = 1 To 4
         xF(1, i * 2).Resize(, 2).Copy [K2:L2].Offset(i, 0)
    Next
End Sub

¦A±N K2 ³]©w¬° A:A ªº¿ï³æ¡A¥i¥H²¤Æ§@·~

mave

¦^´_ 4# luhpro

·PÁ¤j¤jªº¦^ÂÐ

Åý¤p§Ì¼W¥[¨£»D¤F

·P®¦

c_c_lai

¦^´_ 1# snoopykay

1. Sub Ex()
   
2.     Dim sStr$, rest As Range
   
3.     Dim lTar As Range, rTar As Range
   
4.    
   
5.     Range("K2:L10").Clear
   
6.     sStr = InputBox("½Ð¿é¤J­n·j´Mªº¸ê®Æ", "´M§ä¸ê®Æ")
   
7.     Set lTar = Range("A:A").Find(sStr, LookIn:=xlValues)
   
8.    
   
9.     If Not lTar Is Nothing Then
   
10.         '  Set rest = lTar.Resize(1, 9)
    
11.         Set rTar = Cells(2, 11)
    
12.         ' rTar.Resize(9, 1) = Application.Transpose(rest)   '  ¤W¤U¦æ¦P¸q
    
13.         rTar.Resize(9, 1) = Application.Transpose(lTar.Resize(1, 9))
    
14.     End If
    
15. End Sub

½Æ»s¥N½X