Pytanie : wkładać rząd i dane wewnątrz Przodować od VB6

I potrzebować dla wartość w odmianowy kolumna na spreadsheet dopasowanie zmienna w vb6.  Jeżeli znajdować, I potrzebować the ostatni rząd containg ten wartość i rząd data.

Example, I potrzebować krosienko No. 21 dopasowywać the wartość w mój VB6 zmienna, Gdy I lokalizować the wartość w the drugi rząd, rząd 42, I wkładać rząd dane pod that.

I potrzeba odmianowy przykład zadawalać.  Dziękować you.

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

Odpowiedź : wkładać rząd i dane wewnątrz Przodować od VB6

I zakładać stary kopia VB6 więc i instalować ono i dostawać ono z twój kod od twój

Jaki Biblioteka ty odnosić się dla Przodować?  I używać "Microsoft Przodować 11.0 Przedmiot Biblioteka" che musieć the jeden ty używać zbyt.

I dostać the następujący wydajność od the kod następujący:

W kolumna 3 dla the wartość: 10
 8
 6
 7
 3
 3
 (1)
Znajdować Wartość: 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:

Jawny Okręt podwodny Magistrala ()
        Ciemnawy oXLApp Jako Excel.Application
        Ciemnawy oXLBook Jako Excel.Workbook
        Ustalony oXLApp = Nowy Excel.Application
        oXLApp.Visible = Prawdziwy
        Ustalony oXLBook = oXLApp.Workbooks.Open ("c:\Book1.xls ") 'Otwierać istniejący workbook
        FindValue oXLBook
        oXLBook.Close Fałszywy
        oXLApp.Quit
    Końcówka Okręt podwodny
    Jawny Okręt podwodny FindValue (ByRef xlWorkbook Jako Excel.Workbook)
        'Ciemnawy v Przedmiot
        Ciemnawy v Jako Wariant
        Ciemnawy x Jako Integer
        Ciemnawy Col Jako Integer
        Ciemnawy xlsheet Jako Excel.Worksheet
        Ustalony xlsheet = xlWorkbook.Sheets.Item (1)

        Col = 3
        v = 10
        Debug.Print "W kolumna" & CStr (Col) & "dla the wartość: " & CStr (v)
        Z xlsheet
            . Aktywować
            . Komórka ((1), 1).End (Excel.XlDirection.xlDown). Wybiórka
            x = xlsheet. Application.ActiveCell.Row

            Podczas Gdy (x > 1)
                Jeżeli (. Komórka (x, Col). Wartość = v) Wtedy
                    Debug.Print "Znajdować Wartość: " + CStr (v)
                    '. Rząd (x + 1).Insert (Przesunięcie: =Excel.XlDirection.xlDown, CopyOrigin: =Excel.XlInsertFormatOrigin.xlFormatFromLeftOrAbove)
                    . Rząd (x + 1).Insert Przesunięcie: =xlDown, CopyOrigin: =xlFormatFromLeftOrAbove
                    x = (1)
                Inny
                    'stawiać tutaj jak ono pracować
                    Debug.Print. Komórka (x, Col). Wartość
                Kończyć Jeżeli
                x = x - (1)
            Wend
        Kończyć Z
    Kończyć Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us