Excel دا ئاپتۇماتىك رەسىم چاپلاشتىن ياردەم سۇرايمەن

sahra0461

ئەسسالامۇ ئەلەيكۇم تورداشلار! مەن بىر دانە ئانكىت جەدىۋىلى ئىشلەۋاتقان ئىدىم. سان-سىپىرلارنى ئاپتۇماتىك كىلىدىغان قىلغان. ھەر ئانكىتقا شۇ كىشىنىڭ ئۆزىنىڭ رەسىمىنى چاپلايدىغان كاتەك بار ئىدى.رەسىم ئۆلچەملىك تەييارلانغان.بۇ رەسىملەرنى قانداق ئۇسۇل بىلەن شۇ ئانكىت جەدىۋىلىگە ئاپتۇماتىك ئەكەلگىلى بۇلىدۇ.قانداق ئۇسۇل بىلەن ياردەم قىلساڭلار مەن بۇنى خۇشاللىق بىلەن قۇبۇل قىلىمەن.رەھمەت سىلەرگە! جاۋابىڭلارنى كۈتىمەن.

iradam

مەن EXCEL نى ئانچە بىلىپ كەتمەيمەن، باشقا دوستلار جاۋاپ بىرىپ باقسا بولغۇدەك.

arman26

بۇ كودتىن پايدىلانسىڭىز بولىدۇ.

Sub arman()
Dim rasim As String
a = ActiveSheet.UsedRange.Rows.Count
For i = 2 To a
rasim = ActiveSheet.Cells(i, 2).Value & ".jpg"
ActiveSheet.Cells(i, 4).Select
Dim rasimhojjiti As Object
Set rasimhojjiti = CreateObject("Scripting.FileSystemObject")
If myfile.FileExists(ThisWorkbook.Path & "\rasimlar\" & rasim) = False Then
MsgBox ThisWorkbook.Path & "\rasimlar\" & rasim & "bu rasim tepilmidi"
Else
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\rasimlar\" & rasim).Select
End If
Next i
End Sub

arman26

يۇقارقى جەدىۋەلدە بىرىجىسى رەت نومۇرى، 2- كىملىك نومۇرى، 3- ئىسىم، 4- رەسىم. كىملىك نومۇرىغا ئاساسەن رەسىمنى چاپلايدۇ،  رەسىم ئىسمىغا كىملىك نومۇرى قويۇلغان بولۇشى كىرەك.
كودنى مۇۋاپىق ئۆزگەرتىپ كۆزلىگەن مەقسەتكە يىتەلەيسىز، قېنى سىناپ بېقىڭ.

bizlar

مۇشۇ  EXCEL گە كود يىزىشنى بىر ئۇگەنسەم بولاتتى ، يول كۆرسەتسەڭلار، مەن كۇندە مۇشۇ نەرسە بىلەن شوغۇللىنىمەن، خۇشال بولاتتىم.

mamataili110

بۇ دەرسلىك ئۆز ۋاقتىدا مەن ئىنتىل سەيناسىدا سۆزلىگەن دەرسىم ئىدى كۆرۈپ پايدىلىنىڭ ئىشڭىزغا مۇۋاپىقىيەت تىلەيمەن .

بۇ يەردىن كۆرۈڭ

tursun

بەك ياخشى تىمىكەن بۇ