Fråga : mellanlägget ror och data i Excel från VB6

Jag behöver att söka för värderar i en specifik kolonn på ett räkneark för att lokalisera en match till variabeln i vb6.  Om funnen, jag behöver flyttning till jumbon ror containg det värderar och sätter in en ro av data.

Example, mig behöver att lokalisera vävstolen No. 21, som matchat till värdera i min variabel VB6, när jag lokaliserar värdera i understödja, ro, ro 42, mig ska mellanlägget en ro av nedanfört that.

I behov för data som det specifika exemplet behar.  Tacka you.

Spreadsheet: Destination
====================
ett B C D
::::::::::::::::
1: loomNo
2: ______
40: 7
41: 21
42: 21
43: 6
44: 6 " klar "

Svar : mellanlägget ror och data i Excel från VB6

I grundar ett gammalt kopierar av VB6, så jag har installerat den, och fånget den som är funktionsduglig med ditt, kodifiera från över

Vilket arkiv du hänvisar till för Excel?  Jag använde ”Microsoft Excel 11.0 anmärker arkivet” som bör vara det som, du använder för.

Jag fick efter tillverkat från den nedanföra kodifiera:

Se i kolonn 3 för värdera: 10
 8
 6
 7
 3
 3
 1
Funnit värdera: 10
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

Offentligt underhuvudsakligt ()
        Dunkel oXLApp som Excel.Application
        Dunkel oXLBook som Excel.Workbook
        Fastställd oXLApp = ny Excel.Application
        oXLApp.Visible = True
        Fastställd oXLBook = oXLApp.Workbooks.Open (”c:\Book1.xls”) 'öppnar en existerande arbetsbok
        FindValue oXLBook
        falsk oXLBook.Close
        oXLApp.Quit
    Avsluta suben
    Offentliga underFindValue (ByRef xlWorkbook som Excel.Workbook)
        'Dunkelt v som anmärker
        Dunkelt v som Variant
        Dunkelt x som heltal
        Dunkel kolonn som heltal
        Dunkel xlsheet som Excel.Worksheet
        Fastställd xlsheet = xlWorkbook.Sheets.Item (1)

        Kolonn = 3
        v = 10
        Debug.Print ”som ser i kolonn” & CStr (kolonn) & ”för värdera: ” & CStr (v)
        Med xlsheet
            . Aktivera
            . Celler (1, 1). Avsluta (Excel.XlDirection.xlDown). Välj
            x = xlsheet. Application.ActiveCell.Row

            Stunder (x > 1)
                Om (. Celler (x, kolonn). Värdera = v) därefter
                    Fann Debug.Print ”värderar: ” + CStr (v)
                    '. Ror (x + 1). Sätt in (förskjutning: =Excel.XlDirection.xlDown CopyOrigin: =Excel.XlInsertFormatOrigin.xlFormatFromLeftOrAbove)
                    . Ror (x + 1). Mellanläggsförskjutning: =xlDown CopyOrigin: =xlFormatFromLeftOrAbove
                    x = 1
                Annars
                    'satt här för att se hur den är funktionsduglig
                    Debug.Print. Celler (x, kolonn). Värdera
                Avsluta om
                x = x - 1
            Wend
        Avsluta med
    Avsluta suben
Andra lösningar  
 
programming4us programming4us