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

بۇلاق

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

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

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

قۇشۇمچە يادىلىنىش ھۆججىتى： kimlikke mas resim.zip(124.18 KB, چۈشۈرۈش سانى: 54)

2015-1-9 18:47 چىقىرىش

ھۆججەت ئىسمىنى بېسىپ قوشۇمچىنى چۈشۈرۈش

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

مۇزتاغ

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