Excel دا رەت نۇمۇرىنى چەكسە رەسىم كۆرۈنىدىغان قىلىشتىن ياردەم

odon

ئ‍ەركىن جۈمە ئ‍ەپەندى ئ‍ۆزىڭىز بۇ ئ‍اددىلا گەپقۇ دەپ قۇيۇپ بىلىم ئ‍اشۇرۋاتامسىز نىمە
3 _1 Y* e5 F. u* Q6 S" Q

yaxlik007

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

soser

ئاغىنىلەر 标注پايدىلىپ بىقىڭلار

soser

ھە راس ئۇستازلار ،مەن دىسكازدىن پايدىلىپ تور بەت ياسىغان،يىتەكلەس بالدىقىنى ئاستىغا مەزمۇن رامكا دىگەندەكلارنى قوشالمىدىم،دەرسلىك تەۋسىيە قىلساڭلار بوپتىكەن

excel

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

ADiL

excel يوللىغان ۋاقتى  2015-1-18 02:09
مەن سىزنىڭ سوئالىڭزنىڭ چۈشەندىم!  مۇنداق بولسا بولارمۇ ...

ئاشۇنداق قىلىشقا توغرا كەلسە vba كودى ئىشلىتىش كېرەك بولىدۇ ھەقىچان؟
( Z6 f- ?9 s0 o' g' B) g! h  fبولسا شۇنى تەمىنلىگەن بولسىڭىز، بىزمۇ ئۆگىنىۋالساق بولاتتى.

excel

点击进入下载－excel批量插入照片.rar
1 H4 K( m- c9 c' W- f! d- o/ Bرەسىم بىلەن excel  ھۈججەت\بىر ھۈججەت جازىسى ئىچىدە بولسۇن.
4 t) S. h; d; B% I6 h9 dرەسىم قىستۇرماقچى بولغان كاتەكنى تاللاپ  بولۇپ( كاتەكتە قىستۇرۇلماقچى بولغان ھۈججەتنىڭ ئىسمى بولسۇن،  jpg.  قوشۇلمىسۇن  قوشۇقلۇق بولسا، كودقا ئازراق ئۆزگەرتىش كىرگۈزۈڭ) كونۇپكىنى چېكىڭ!

excel

1. Sub insertPic()
   8 Q1 N/ p/ t' T9 v) t( p  d8 O
2. On Error Resume Next
   # A: }6 g" `8 b+ K: Z3 z
3. Application.ScreenUpdating = False '关闭屏幕更新
   5 J) R' `  b& l! v: z/ p- J0 ]. h' l
4. Dim MR As Range
   8 F/ R0 P$ r0 n6 X. @  v
5. For Each MR In Selection
   
6. If Not IsEmpty(MR) And Dir(ActiveWorkbook.Path & "\" & MR.Value & ".jpg") <> "" Then
   6 G" ]8 J6 E/ q  R* m
7. MR.Select
   
8. ML = MR.Left
   " J. o  j9 I2 ?0 Q2 ^+ B% I
9. MT = MR.Top
   / _+ l! {- f9 o4 G" V
10. MW = MR.Width
    
11. MH = MR.Height
    8 v' y" ^2 [* e9 `+ q, |
12. ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
    : ?* O& F1 q: c! L: |. k2 m
13. Selection.ShapeRange.Fill.UserPicture _
    
14. ActiveWorkbook.Path & "\" & MR.Value & ".jpg" '当前文件所在目录下以当前单元内容为名称的.jpg图片
    2 Q, \/ |7 ]9 b- @" K! N! H
15. End If
    
16. Next
    
17. Set MR = Nothing
    ( e8 B' q  c5 k; b
18. Application.ScreenUpdating = True '开启屏幕更新
    , ^3 x0 c2 n' q! h* D
19. End Sub

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

excel

ئوقۇغۇچىلار رەسىمى ئىدى، قالايمىقان ئىشلەتمەڭلار!

ADiL

excel يوللىغان ۋاقتى  2015-1-18 18:58
, n8 \. [' ~5 x% O1 I点击进入下载－excel批量插入照片.rar
% b& a0 Z: V: \  b( qرەسىم بىلەن excel  ھۈججەت\بىر ھۈججەت ج ...

ئاۋۇ ھۆججەتنى چۈشەرگىلى بولمىدى، سىز ئۇنى ئايرىم ئۆزىڭىز مۇندەرىجە قۇرۇپ يوللىغان ئوخشايسىز.
5 k2 x+ z5 L% W没有下载权限 دەپ ئۇچۇر چىقىۋالدى، مۇمكىن بولسا ئۇ ھۆججەتنى چۈشۈرۈشكە بولىدىغان قىلىپ 共享  قىلىۋەتسىڭىز.