Visual Basic / Vb Uzerinden Excelde Arama Yapmak - Hazır Kod

toplu mesaj toplu mesaj gönderme toplu sms gönderme toplu sms paketleri toplu sms programı toplu mesaj atma sms paketleri başlıklı sms toplu mesaj gönderme programı toplu sms sistemi toplu sms firmaları kurumsal sms paketler Hoşgeldiniz, bugün 20 November 2024 aktif üye 8,903 Yeni Üyelik Üye Girişi Şifremi Unuttum

• ANASAYFA
• YENİ ÜYELİK
• ÜYE GİRİŞİ
• SEN DE YAZ
• İLETİŞİM

SEN DE YAZ HazırKod ziyaretçilerinin katkıları bizim için çok önemli! Sizde hazırkod üyesi olun, ekleyeceğiniz kodlar yapacağınız yorumlarla hazirkod.com'a katkıda bulunun. ETİKETLER toplu mesaj toplu mesaj gönderme toplu sms gönderme toplu sms paketleri toplu sms programı toplu mesaj atma sms paketleri başlıklı sms toplu mesaj gönderme programı toplu sms sistemi toplu sms firmaları kurumsal sms paketler nasil makinesi text kontrol ekran açma basit dosya karakter kayit active-x resim windows kendi yaziya zaman eliptik hesap sayi satir karakterlerin titreyen kutusunu access saat kutusunda yazi mouse visual program basic küçük rakamlari kayan araba veya dosyayi yeni metin form girilen formu açip rakam yuvarlak textbox tarih güzel paralel kutusuna Lütfen bekleyiniz.. İşleminiz gerçekleştiriliyor... Geçen süre:

Konu:

Yorum:

<HK>buraya kod</HK>

Ekle Vazgeç

Programalama > VISUAL BASIC VISUAL BASIC / Vb Üzerinden Excelde Arama Yapmak Visual Basic Kullanarak Excel Üzerinde Arama Yapabilir Aradiginiz Bir Kaydi Sorgulatabilirsiniz. Etiketler: üzerinden, excelde, arama, yapmak Ort. 0 Puan ver: hazirkod 14 June 19:34 0 0 kişiden 0 puan aldı 16941 Project/References menülerinden "Microsoft Excel 10.0 Object Library" ekleyin, Formunuza 9 adet text kutusu, 9 adet label ve bir adet command butonu ekleyin, ve aşağıdaki kodları olduğu gibi forma yapıştırın ve çalıştırın. Dim c As Excel.Range Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Sub ExcelAra() On Error GoTo hata Set xlApp = New Excel.Application Text2.Text = "" Set xlBook = Workbooks.Open(App.Path & "\devlet_kurumlari.xls", , True) Set xlSheet = xlBook.Worksheets("sheet 1") With xlSheet.Range("a1:c65536") Set c = .Find(Trim(Text1.Text), lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Text2.Text = c.Address Range(Text2.Text).Select Text3.Text = Excel.ActiveCell.Row '??????_______Kurum Adı Range("$d$" & Text3.Text).Select Text4.Text = Excel.ActiveCell '??????_______Kurum İli Range("$a$" & Text3.Text).Select Text5.Text = Excel.ActiveCell '??????_______Kurum İlçesi Range("$b$" & Text3.Text).Select Text6.Text = Excel.ActiveCell '??????_______Kurum Telefonu Range("$e$" & Text3.Text).Select Text7.Text = Excel.ActiveCell MaskEdBox1.Text = Excel.ActiveCell '??????_______Kurum Fax Range("$f$" & Text3.Text).Select Text8.Text = Excel.ActiveCell '??????_______Kurum Adres Range("$g$" & Text3.Text).Select Text9.Text = Excel.ActiveCell Do c.Interior.Pattern = xlPatternGray50 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With If Text2.Text = "" Then Text2.Text = "Bulunamadı..." xlBook.Close False xlApp.Quit Exit Sub hata: MsgBox Err.Description End Sub Private Sub Command1_Click() ExcelAra End Sub Yorumlar Yorum Yaz Bu hazır kod'a ilk yorumu siz yapın! KATEGORİLER ADO.NET - ADO - 8ASP - 240ASP.NET - 24C# - 75C++ - 174CGI - 8COMPONENT - 5DATABASE - 8DELPHI - 247FLASH - 49HTML - 536JAVA - JSP - 43JAVA SCRIPT - 494PASCAL - 246PERL - 11PHP - 160VISUAL BASIC - 337VISUAL BASIC.NET - 39WML - 9XML - 2Tüm Kategoriler GİZLİLİK İLKELERİ | BİZE ULAŞIN Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır. Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz. hazirkod.com bir İSOBİL projesidir.