Excel VBA - كىملىك نومۇرغا ماس رەسىمنى چىقىرىش

egilik · ۋاقتى: 2014-8-17 12:10:58

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

判断筛选重命名.zip (44.39 KB, چۈشۈرۈش سانى: 694)

nurmamatjan · ۋاقتى: 2014-8-18 18:53:53

بۇنداق بىلىملەرگە ئىنتىل ئۇستاز ئۇستا ئۇچۇر قىلىڭە مۇنبەردە جاۋاپ بىرىشى مۇمكىن

Intil · ۋاقتى: 2014-8-18 23:19:43

كىملىك نومۇرىغا ئاساسەن رەسىمنى چىقىرىشنىڭ ئۈلگىلىك ھۆججىتى. پايدىلىنارسىلەر
http://1000eb.com/ybtw ياكى http://good.gd/3105487.htm

Intil · ۋاقتى: 2014-8-18 23:44:54

a5 كە كىملىك نومۇرى كىرگۈزۈڭ، رەسىم excel ھۆججىتى بار قىسقۇچتىكى pic قىسقۇچتا بولسۇن.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim FillPath As String
If Target.Address <> "$A$5" Then Exit Sub
FillPath = ThisWorkbook.Path & "\pic\" & Range("a5").Value & ".jpg"
With Sheets("sheet1").Shapes("矩形 1")
If Dir(FillPath) <> "" Then
.Fill.Visible = msoTrue
.Fill.UserPicture FillPath
Else
MsgBox "没有照片"
.Fill.Visible = msoFalse
End If
End With
End Sub

مەزمۇننى كۆچۈرۈۋېلىش

قوشۇمچىغا قاراڭ

kimlikke mas resim.zip (124.18 KB, چۈشۈرۈش سانى: 600)

egilik · ۋاقتى: 2014-8-23 15:37:13

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

egilik · ۋاقتى: 2014-8-23 15:38:31

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

ھېسابات		ساقلاش	پارول قايتۇرىۋېلىش
پارول			تىزىملىتىش

مىكروبلوگ[ يېڭى | 24 سائەت | 7 كۈن | 30 كۈن ]

[ياردەم] Excel VBA - كىملىك نومۇرغا ماس رەسىمنى چىقىرىش

مۇناسىۋەتلىك تېمىلار