ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¤@­Ó¬d¸ßªºªí³æ,

¤@­Ó¬d¸ßªºªí³æ,

¦Uª©¥D¤Î¦U¤j¤j, ¦w¦n, ¤p§Ìªì¦¸¨ì³o½×¾Â, ¥çªì¦¸µo°Ý, §Æ±æ¯à±o¨ì¤j¤j¦^À³, §ó§Æ±æ±q¦^À³¤¤¾Ç²ß, ²{§âÀɮפW¶Ç, ¥ý¦æÁ¹L¦U¦ì, ÁÂÁÂ!!
a.rar (710.24 KB)
hong912

¦^´_ 1# hong912
UserFormªºµ{¦¡½X
  1. Option Explicit                            '¦b¼Ò²Õ¼h¦¸¤¤±j­¢¨C­Ó¦b¼Ò²ÕùتºÅܼƳ£¥²¶·©ú½Tªº«Å§i¡C
  2. Private Const ½s¸¹ = 3                     '¸ê®Æ®wªºÄæ¦ì¦C¸¹
  3. Private Const ThePicture = "d:\ttt.gif"    '³]¥ß¶×¥X¹Ï¤ùªº¸ô®|ÀɦW
  4. Dim Ar(10), Sh As Worksheet
  5. 'Dim Ar()
  6. Private Sub UserForm_Initialize()          'ªí³æªì©l¤Æªº¹w³]¨Æ¥óµ{§Ç
  7.     Dim I As Integer
  8.     Set Sh = Sheets("Sheet1")              '¸ê®Æ®wªº¤u§@ªí
  9.     With Sh
  10.         ComboBox1.List = .Range("a4", .[a4].End(xlDown)).Value '«ü©w ComboBox1ªº¤º®e
  11.     End With
  12.     'Dim Ar()®É¥i¥Î¤U¦¡
  13.     'Ar = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11)
  14.     For I = 0 To UBound(Ar)
  15.       Set Ar(I) = Me.Controls("TextBox" & I + 1) '°}¦Cªº¤¸¯À³]¬°TextBox (ª«¥ó)
  16.     Next
  17.     Image1.PictureSizeMode = fmPictureSizeModeStretch
  18.     '°Ñ¼ÆfmPictureSizeModeStretch= 1 :½Õ¾ã¹Ï¤ù¤j¤p¥H¶ñº¡ªí³æ©Î¬¡­¶¡A¦¹³]©w·|³y¦¨¹Ï¤ùªº¤ô¥­»P««ª½¤è¦V¤ñ¨Ò³Q§á¦±¡C
  19. End Sub
  20. Private Sub ComboBox1_Change()
  21.     Dim Sp As Picture, I As Integer
  22.     If ComboBox1.ListIndex > -1 Then   '¿ï¾Ü ComboBox1ªº¤º®e
  23.         For I = 0 To UBound(Ar)
  24.             Ar(I).Text = Sh.Cells(½s¸¹ + ComboBox1, I + 2)
  25.         Next
  26.     End If
  27.     With Sh
  28.         For Each Sp In .Pictures             '´M§äNÄ椤ªº¹Ï¤ù,½Æ»s¤§
  29.             If Sp.TopLeftCell.Address(0, 0) = "N" & ½s¸¹ + ComboBox1 Then Sp.Copy: Exit For
  30.         Next
  31.         '§Q¥Î¹Ïªí¶×¥X¦sÀÉ
  32.         With .ChartObjects.Add(1, 1, Sp.Width, Sp.Height)           '·s¼W ¹Ïªí
  33.              .Chart.Paste                                           '¶K¤W ¹Ï¤ù
  34.              .Chart.Export Filename:=ThePicture                     '¶×¥X ¹Ï¤ù
  35.              .Delete                                                '§R°£ ¹Ïªí
  36.         End With
  37.     End With
  38.     Image1.Picture = LoadPicture(ThePicture)                         'Image1 «ü©w¹Ï¤ù
  39. End Sub
  40. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)  'ªí³æµ´§ô®É ¹w³]¨Æ¥óµ{§Ç
  41.     If Dir(ThePicture) <> "" Then Kill ThePicture                   '§R°£ ¶×¥Xªº¹Ï¤ù
  42. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

GBKEE, ª©¤j, ¦w¦n,
·PÁ¦^À³, ¤w¸Õ¥Î, ¦³¤p³\°ÝÃD, ¦ý·|¸Õ¦æ¸Ñ¨M, ­Y¤£¦¨¥\, «K¦A½Ð±Ð, ¯uªº°J¤ß·PÁÂÁÂ, ¯¬°·±d§Ö¼Ö.. ·P®¦..
hong912

TOP

GBKEE ª©¤j¦n,
¤j¤jªº½s¼g«Ü°ª²`, §Æ±æ¯à±q¤¤¾Ç²ß, ²{¦³2­Ó°ÝÃD½Ð±Ð, ªþ¥ó,  ¤º¦³»¡©ú, ¥ý¦æÁ¹L¤j¤j..¯¬§Ö¼Ö!!
b.rar (611.44 KB)
hong912

TOP

¦^´_ 4# hong912
¸Õ¸Õ¬Ý
  1. Private Sub UserForm_Click() '¦bªí³æ¨S¦³±±¨î¶µªº¦a¤è«ö¤U·Æ¹«¥ªÁ䪺¨Æ¥ó
  2. '1·í¹Ï¤ù¶Ç¦^ªí³æ,  ¹Ï¤ù¤£²M, ¥i¦³¤è¿ì¸Ñ¨M ':­×§ïÅã¥Ü­I´º¹Ï¤ùªº¤è¦¡
  3.     With Image1
  4.         If .PictureSizeMode = fmPictureSizeModeClip Then
  5.             .PictureSizeMode = fmPictureSizeModeStretch
  6.         ElseIf .PictureSizeMode = fmPictureSizeModeStretch Then
  7.             .PictureSizeMode = fmPictureSizeModeZoom
  8.         ElseIf .PictureSizeMode = fmPictureSizeModeZoom Then
  9.             .PictureSizeMode = fmPictureSizeModeClip
  10.         End If
  11.     End With
  12. ' [   ±`                                   ¼Æ]  [­È]  [ »¡      ©ú]
  13. 'fmPictureSizeModeClip          0    µô±¼¹Ï¤ù¦h¥X¨Óªº³¡¤À ( ¹w³] )¡C
  14. 'fmPictureSizeModeStretch    1    ½Õ¾ã¹Ï¤ù¤j¤p¥H¶ñº¡ªí³æ©Î¬¡­¶¡A¦¹³]©w·|³y¦¨¹Ï¤ùªº¤ô¥­»P««ª½¤è¦V¤ñ¨Ò³Q§á¦±¡C
  15. 'fmPictureSizeModeZoom      3     ©ñ¤j¹Ï¤ù¡A¦ý¤£§á¦±¹Ï¤ù¤ô¥­»P««ª½¤è¦Vªº¤ñ¨Ò¡C
  16. End Sub
  17. Private Sub ComboBox1_Change()
  18.     Dim Sp As Picture, I As Integer
  19.     If ComboBox1.ListIndex > -1 Then   '¿ï¾Ü ComboBox1ªº¤º®e
  20.         For I = 0 To UBound(Ar)
  21.             If I <> UBound(Ar) Then
  22.                 Ar(I).Text = Sh.Cells(½s¸¹ + ComboBox1, I + 2)
  23.             Else
  24.                 '2, ¦b²Ä11­ÓTextBox11ª«¥ó¤¤, ¥i§_°µ¨ì§âsheet1²Ä11Äæ¤Î12Äæ¦X«÷Åã¥Ü,¦p123aaa
  25.                  Ar(I).Text = Sh.Cells(½s¸¹ + ComboBox1, I + 2) & Sh.Cells(½s¸¹ + ComboBox1, I + 3)
  26.              End If
  27.         Next
  28.     End If
  29.     With Sh
  30.         For Each Sp In .Pictures             '´M§äNÄ椤ªº¹Ï¤ù,½Æ»s¤§
  31.             If Sp.TopLeftCell.Address(0, 0) = "N" & ½s¸¹ + ComboBox1 Then Sp.Copy: Exit For
  32.         Next
  33.         '§Q¥Î¹Ïªí¶×¥X¦sÀÉ
  34.         With .ChartObjects.Add(1, 1, Sp.Width, Sp.Height)           '·s¼W ¹Ïªí
  35.              .Chart.Paste                                           '¶K¤W ¹Ï¤ù
  36.              .Chart.Export Filename:=ThePicture                     '¶×¥X ¹Ï¤ù
  37.              .Delete                                                '§R°£ ¹Ïªí
  38.         End With
  39.     End With
  40.     Image1.Picture = LoadPicture(ThePicture)                         'Image1 «ü©w¹Ï¤ù
  41. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# GBKEE

°J¤ß·PÁÂGBKEEª©¤j, ÁÂÁÂ, ¯¬Ä@§Ö¼Ö..
hong912

TOP

GBKEEª©¤j, ¦w¦n
¤p§Ì¦³°ÝÃD¦A«×·Ð³Òª©¤j,  ¦b¤j¤j¼gªºµ{¦¡¤¤,  ¤£ª¾¬O¦ó­ì¦],
¦bªí³æ¤U©Ô½s¸¹¤¤, ¿ï¾Ü¤F½s¸¹, ¦ý却¥X²{13¤Î1004¿ù»~, ¦P®É¹Ï¤ù¥ç¤£¯àÅã¥Ü, Àµ½Ð¤j¤j¨ó§U,
¦A«×·Ð³Ò, ·q½Ð¤j¤j¨£½Ì, ³Ì«á¯¬Ä@§Ö¼Ö
ªþ¥ó KK.rar (526.38 KB)
hong912

TOP

QA1  ComboBox1 ¬O¤å¦r«¬ºAÁÙ¬O¼Æ¦r«¬ºA.???

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 7# hong912
ComboBox1 ¼W¥[¤@Ä椺®e
  1. Private Sub UserForm_Initialize()          'ªí³æªì©l¤Æªº¹w³]¨Æ¥óµ{§Ç
  2.     Dim I As Integer, e As Range
  3.     Set Sh = Sheets("Sheet1")              '¸ê®Æ®wªº¤u§@ªí
  4.     With Sh
  5.         For Each e In .Range("a4", .[a4].End(xlDown))  '«ü©w ComboBox1ªº¤º®e
  6.             With ComboBox1                             'ComboBox1.ColumnCount=1 ¨t²Î¹w³] Åã¥Ü1Äæ¸ê®Æ
  7.                ' .ColumnCount=2                        '¥iÅã¥Ü2Äæ¸ê®Æ
  8.                 .AddItem
  9.                 'AddItem ¤èªk ¦b¤@­Ó³æ¦C²M³æ¤è¶ô©Î¤U©Ô¦¡²M³æ¤è¶ô¤¤¥[¤J¤@­Ó¶µ¥Ø¡C¦b¤@­Ó¦h¦C²M³æ¤è¶ô©Î¤U©Ô¦¡²M³æ¤è¶ô¤¤¥[¤J¤@¦æ¡C
  10.                 .List(.ListCount - 1, 0) = e            'ComboBox²Ä1Äæ : ¦r¦ê
  11.                 .List(.ListCount - 1, 1) = e.Row - ½s¸¹ 'ComboBox²Ä2Äæ : ¦C¸¹ 1 - ....
  12.             End With
  13.         Next
  14.     End With
  15.     For I = 0 To UBound(Ar)
  16.       Set Ar(I) = Me.Controls("TextBox" & I + 1) '°}¦Cªº¤¸¯À³]¬°TextBox (ª«¥ó)
  17.     Next
  18.     Image1.PictureSizeMode = fmPictureSizeModeStretch
  19.     '°Ñ¼ÆfmPictureSizeModeStretch= 1 :½Õ¾ã¹Ï¤ù¤j¤p¥H¶ñº¡ªí³æ©Î¬¡­¶¡A¦¹³]©w·|³y¦¨¹Ï¤ùªº¤ô¥­»P««ª½¤è¦V¤ñ¨Ò³Q§á¦±¡C
  20. End Sub
  21. Private Sub ComboBox1_Change()
  22.     Dim Sp As Picture, I As Integer, R As Integer
  23.     If ComboBox1.ListIndex > -1 Then                    '¿ï¾Ü ComboBox1ªº¤º®e
  24.         R = ComboBox1.List(ComboBox1.ListIndex, 1)      'ComboBox²Ä2Äæ : ¦C¸¹ 1....
  25.         For I = 0 To UBound(Ar)
  26.             If I <> UBound(Ar) Then
  27.                 Ar(I).Text = Sh.Cells(½s¸¹ + R, I + 2)  '¦C¸¹ : ½s¸¹ + R
  28.             Else
  29.                 '2, ¦b²Ä11­ÓTextBox11ª«¥ó¤¤, ¥i§_°µ¨ì§âsheet1²Ä11Äæ¤Î12Äæ¦X«÷Åã¥Ü,¦p123aaa
  30.                  Ar(I).Text = Sh.Cells(½s¸¹ + R, I + 2) & Sh.Cells(½s¸¹ + R, I + 3)
  31.              End If
  32.         Next
  33.     End If
  34.     With Sh
  35.         For Each Sp In .Pictures             '´M§äNÄ椤ªº¹Ï¤ù,½Æ»s¤§
  36.             If Sp.TopLeftCell.Address(0, 0) = "N" & ½s¸¹ + R Then Sp.Copy: Exit For
  37.         Next
  38.         '§Q¥Î¹Ïªí¶×¥X¦sÀÉ
  39.         With .ChartObjects.Add(1, 1, Sp.Width, Sp.Height)           '·s¼W ¹Ïªí
  40.              .Chart.Paste                                           '¶K¤W ¹Ï¤ù
  41.              .Chart.Export Filename:=ThePicture                     '¶×¥X ¹Ï¤ù
  42.              .Delete                                                '§R°£ ¹Ïªí
  43.         End With
  44.     End With
  45.     Image1.Picture = LoadPicture(ThePicture)                         'Image1 «ü©w¹Ï¤ù
  46. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# GBKEE
·PÁÂGBKEEª©¤j¦A«×¦^À³, «Ý©ñ¤u¦^®a¤~¯à¸Õ¥Î, ¦ýı±o§Y®É¦^À³¤Î»¡·PÁÂ, ¬O¥²¶·, ¦]³o¬O¤@ºØ§»ª, ¦A»¡Án·PÁÂ, ÁÂÁÂ!!
hong912

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD