merhaba
şöyle bir sorunum var.
elimde yaklaşık 10.000 kişilik bir löğrenci listesi var ve bu öğrencilere resimli kimlik basılması gerekiyor.
elimdeki macro ile öğrenci numaralarını baz alarakfotoğrafların bulunduğu klasör içerisinden kimlerin fotoğrafı var ya da yok kontrolü yapıyorum.
ancak ne varki; exceldeki sütunda öğrenci numaralarının içinde, 0 (sıfır) ile başlayan öğrenci numaraları var ve bu numaraların başındaki 0 görünsün diye hücre biçimlendirmede "isteğe uyarlanmış 0000000000" biçimi seçilmiş.
ben macroyu çalıştırdığımda 0 ile başlayan numaraları yok sayıyor. metin yapıp ' işareti koyarsam bu numaraları hesaba katıyor ama 10.000 kişiyide bi anda metin yapıp ' işaretini koymak ne kadar zor bilirsiniz.
şimdi bu drumda ben macroyu nasıl düzeltmeliyim ya da kolayca bu hücreleri nasıl metin yapabilirim.
yardımcı olursanız çok sevinirim
macro aşağıdadır.
VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1
Caption = "Resim Var / Yok Makrosu by mhSatman();"
ClientHeight = 2220
ClientLeft = 45
ClientTop = 435
ClientWidth = 9840
OleObjectBlob = "ResimVarYok.frx":0000
StartUpPosition = 1 'CenterOwner
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CommandButton1_Click()
Dim a As String
Dim sutun As Integer
Dim direct As String
direct = TextBox1.Text
sutun = CInt(TextBox2.Text)
If Len(direct) < 1 Then
MsgBox "Lütfen bir dizin giriniz", vbCritical
Exit Sub
End If
If Len(TextBox2.Text) < 1 Then
MsgBox "Lütfen bir sütun numarası giriniz", vbCritical
Exit Sub
End If
For i = 3 To 65000
a = Trim(Sayfa1.Cells(i, 1))
If Len(a) < 1 Then Exit For
fname = direct + "\" + CStr(a) + ".jpg"
fexist = Dir(fname)
If Len(fexist) > 0 Then
Sayfa1.Cells(i, sutun) = "VAR"
Else
Sayfa1.Cells(i, sutun) = "YOK"
End If
Next
MsgBox "Başarıyla bitirildi", vbInformation
End Sub
şöyle bir sorunum var.
elimde yaklaşık 10.000 kişilik bir löğrenci listesi var ve bu öğrencilere resimli kimlik basılması gerekiyor.
elimdeki macro ile öğrenci numaralarını baz alarakfotoğrafların bulunduğu klasör içerisinden kimlerin fotoğrafı var ya da yok kontrolü yapıyorum.
ancak ne varki; exceldeki sütunda öğrenci numaralarının içinde, 0 (sıfır) ile başlayan öğrenci numaraları var ve bu numaraların başındaki 0 görünsün diye hücre biçimlendirmede "isteğe uyarlanmış 0000000000" biçimi seçilmiş.
ben macroyu çalıştırdığımda 0 ile başlayan numaraları yok sayıyor. metin yapıp ' işareti koyarsam bu numaraları hesaba katıyor ama 10.000 kişiyide bi anda metin yapıp ' işaretini koymak ne kadar zor bilirsiniz.
şimdi bu drumda ben macroyu nasıl düzeltmeliyim ya da kolayca bu hücreleri nasıl metin yapabilirim.
yardımcı olursanız çok sevinirim
macro aşağıdadır.
VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1
Caption = "Resim Var / Yok Makrosu by mhSatman();"
ClientHeight = 2220
ClientLeft = 45
ClientTop = 435
ClientWidth = 9840
OleObjectBlob = "ResimVarYok.frx":0000
StartUpPosition = 1 'CenterOwner
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CommandButton1_Click()
Dim a As String
Dim sutun As Integer
Dim direct As String
direct = TextBox1.Text
sutun = CInt(TextBox2.Text)
If Len(direct) < 1 Then
MsgBox "Lütfen bir dizin giriniz", vbCritical
Exit Sub
End If
If Len(TextBox2.Text) < 1 Then
MsgBox "Lütfen bir sütun numarası giriniz", vbCritical
Exit Sub
End If
For i = 3 To 65000
a = Trim(Sayfa1.Cells(i, 1))
If Len(a) < 1 Then Exit For
fname = direct + "\" + CStr(a) + ".jpg"
fexist = Dir(fname)
If Len(fexist) > 0 Then
Sayfa1.Cells(i, sutun) = "VAR"
Else
Sayfa1.Cells(i, sutun) = "YOK"
End If
Next
MsgBox "Başarıyla bitirildi", vbInformation
End Sub
