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

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

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

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

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

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

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

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

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

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