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

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

¦^´_ 9# GBKEE
GBKEEª©¤j, ¦n  ¥ý¦æÁ¹Lª©¤j¦^À³, ¦ý¥X²{¤U¦C°ÝÃD,
µ{¦¡¶K¨ìÀɮפu§@¤W, ±q¤U©Ô¿ï¾Ü½s¸¹«á,      (  For Each Sp In .Pictures             '´M§äNÄ椤ªº¹Ï¤ù,½Æ»s¤§ ), ³o¦æÅã¥Ü¶À¦â,   ¨ì©³°ÝÃD¦b©ó­þ¸Ì, §Æ±æ¤j¤j¯à¨ó§U, ÁÂÁÂ

    Private Sub ComboBox1_Change()

    Dim Sp As Picture, I As Integer, R As Integer

    If ComboBox1.ListIndex > -1 Then                    '¿ï¾Ü ComboBox1ªº¤º®e

        R = ComboBox1.List(ComboBox1.ListIndex, 1)      'ComboBox²Ä2Äæ : ¦C¸¹ 1....

        For I = 0 To UBound(Ar)

            If I <> UBound(Ar) Then

                Ar(I).Text = Sh.Cells(½s¸¹ + R, I + 2)  '¦C¸¹ : ½s¸¹ + R

            Else

                '2, ¦b²Ä11­ÓTextBox11ª«¥ó¤¤, ¥i§_°µ¨ì§âsheet1²Ä11Äæ¤Î12Äæ¦X«÷Åã¥Ü,¦p123aaa

                 Ar(I).Text = Sh.Cells(½s¸¹ + R, I + 2) & Sh.Cells(½s¸¹ + R, I + 3)

             End If

        Next

    End If

    With Sh

        For Each Sp In .Pictures             '´M§äNÄ椤ªº¹Ï¤ù,½Æ»s¤§

            If Sp.TopLeftCell.Address(0, 0) = "N" & ½s¸¹ + R Then Sp.Copy: Exit For

        Next

        '§Q¥Î¹Ïªí¶×¥X¦sÀÉ

        With .ChartObjects.Add(1, 1, Sp.Width, Sp.Height)           '·s¼W ¹Ïªí

             .Chart.Paste                                           '¶K¤W ¹Ï¤ù

             .Chart.Export Filename:=ThePicture                     '¶×¥X ¹Ï¤ù

             .Delete                                                '§R°£ ¹Ïªí

        End With

    End With

    Image1.Picture = LoadPicture(ThePicture)                         'Image1 «ü©w¹Ï¤ù

End Sub
hong912

TOP

¦^´_ 11# hong912

¸Õ¸Õ¬Ý¤U¦Cµ{¦¡½X
  1. Dim PicAr() As Picture '¹Ï¤ù°}¦C
  2. Private Const fs = "E:\temp.jpg" '¼È¦s¹Ï¤ù¥Ø¿ý¦ì¸m
  3. Private Const r = 4 '¸ê®Æ°_©l¦C¸¹
  4. Private Sub ComboBox1_Change() '¿ï¾Ü½s¸¹¨Æ¥ó
  5. Dim k%, i%
  6. With ComboBox1
  7. k = .ListIndex '¤U©Ô¿ï³æ¿ï¨ú¦ì¸m
  8. For i = 1 To 11
  9.    Controls("TextBox" & i).Text = IIf(i = 11, .List(k, i) & .List(k, i + 1), .List(k, i)) '¤å¦r¤è¶ô¼g¤J
  10. Next
  11. End With
  12. PicAr(k).CopyPicture '½Æ»s¹Ï¤ù
  13. With Sheet1.ChartObjects.Add(, , PicAr(k).Width, PicAr(k).Height) '·s¼W¹Ïªí
  14. .Chart.Paste '¶K¤W¹Ï¤ù
  15. .Chart.Export fs '¥H¹Ïªí¶×¦¨¹Ï¤ù
  16. Image1.Picture = LoadPicture(fs) '¸ü¤J¹Ï¤ù
  17. .Delete '§R°£¹Ïªí
  18. End With
  19. End Sub


  20. Private Sub UserForm_Initialize() 'ªí³æªì©l¤Æ
  21. Dim Pic As Picture
  22. With Sheet1
  23. ReDim PicAr(.Pictures.Count)
  24. For Each Pic In .Pictures '±N¨C­Ó¹Ï¤ù¸m¤J°}¦C
  25.   Set PicAr(Pic.TopLeftCell.Row - r) = Pic
  26. Next
  27. ComboBox1.List = .Range("A4", .[A4].End(xlDown).Offset(, 12)).Value '¤U©Ô²M³æ¤º®e
  28. End With
  29. Image1.PictureSizeMode = fmPictureSizeModeStretch '¹Ï¤ù¸ü¤Jªº«¬ºA
  30. End Sub

  31. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Ãö³¬ªí³æ
  32. If Dir(fs) <> "" Then Kill fs '§R°£¼È¦s¹Ï¤ùÀÉ®×
  33. End Sub
½Æ»s¥N½X
ªí³æ¹Ï¤ù¬d¸ß.rar (1.28 MB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 12# Hsieh

Hsiehª©¤j, ¦­±á
ÁÂÁ¦^À³, ¤@¦­°_§É, ¬Ý¨ì¦^À³, ªº½T«Ü°ª¿³, ¦ý»°¶}¤u, ®É¶¡­¢¤Á, ­n¨ì©]±ß¤~¯à¸Õ¥Î, ·PÁ¦^À³, ¯¬Ä@§Ö¼Ö, ÁÂÁÂ!!

TOP

¦^´_ 12# Hsieh

¥i¥H¹B¦æ¤F, ÁÂÁ¤j¤j
hong912

TOP

¦^´_ 11# hong912
9# ªºµ{¦¡½X, ¬O¨Ì¾Ú§A7# ªþÀɭק諸,§Ú°õ¦æ®É¨Ã¨S¦³§A´£¨ìªº¿ù»~
½Ð¬d¬Ý§AÀɮפ¤ªº¹Ï¤ù¬O§_¦³²¾°Ê,Â÷¶}7# ªþÀɪº¦ì¸m.

TOP

¦^´_ 15# GBKEE
GBKEEª©¤j,
ÁÂÁ¤j¤j¦A«×´£¥Ü, ªº½T³Ìªì¨S¬°·N³Ì¤U¦CÀx¦s®æ¦³¤G¦C¬O¨S¦³¹Ï¤ù, ¦hÁ¤j¤j´£¥Ü, ·P®¦..ÁÂÁÂ!!
hong912

TOP

¬Q±ß¸Õ¹L, «Ü¦X¥Î, ¥ýÁ¹Lµo°Ýªº¼Ó¥D,
¦b¦¹§ó¦VCBKEE¤ÎHsieh两¦ì¶W¯Å¤j¤j­PÁÂ, ·PÁÂ两¦ìªø¤[ªº±Ð¾É, ¹L¥h¤Î²{¦b, ¥O¤p©f»â·|¤F¤£¤p,
ÁÂÁÂÁÂ!!

TOP

GBKEE ª©¤j, ¦w¦n
³o两¤Ñ²Ó¬Ý¤j¤j©Ò¼gªºµ{¦¡, ¦Ñ¹ê»¡, ¥uª¾¹D¬OÂIÂI, ¦P®É¥çµo²{¤@­Ó¹Ï¤ù°ÝÃD,
§Æ±æ¤j¤j¯à¨ó§U, ¦b¤j¤jªºµ{¦¡¤¤¬O¥i¥H¹B¦æ, ¦ý·í¹J¤W¤@¨Ç¤£¤ä´©ªº¹Ï¤ù®æ¦¡
¦ppng, «K·|¼u¥X¤U¦C´£¥Ü,
°õ¦æ¶¥¬q¿ù»~91, ¨S¦³³]©wª«¥óÅܼƩÎwith°Ï¶ôÅܼÆ,
¤j¤j, ¥i§_­×§ïµ{¦¡¦Ü¥ô¦ó¹Ï¤ù®æ¦¡³£¥i¨Ï¥Î,  ·Ð³Ò¤j¤j, ¦b¦¹¥ý¦æÁÂÁÂÁÂ!!

Option Explicit                            '¦b¼Ò²Õ¼h¦¸¤¤±j­¢¨C­Ó¦b¼Ò²ÕùتºÅܼƳ£¥²¶·©ú½Tªº«Å§i¡C

Private Const ½s¸¹ = 3                     '¸ê®Æ®wªºÄæ¦ì¦C¸¹

Private Const ThePicture = "d:\ttt.gif"    '³]¥ß¶×¥X¹Ï¤ùªº¸ô®|ÀɦW

Dim Ar(10), Sh As Worksheet
Private Sub UserForm_Initialize()          'ªí³æªì©l¤Æªº¹w³]¨Æ¥óµ{§Ç

    Dim I As Integer, e As Range

    Set Sh = Sheets("Sheet1")              '¸ê®Æ®wªº¤u§@ªí

    With Sh

        For Each e In .Range("a4", .[a4].End(xlDown))  '«ü©w ComboBox1ªº¤º®e

            With ComboBox1                             'ComboBox1.ColumnCount=1 ¨t²Î¹w³] Åã¥Ü1Äæ¸ê®Æ

               ' .ColumnCount=2                        '¥iÅã¥Ü2Äæ¸ê®Æ

                .AddItem

                'AddItem ¤èªk ¦b¤@­Ó³æ¦C²M³æ¤è¶ô©Î¤U©Ô¦¡²M³æ¤è¶ô¤¤¥[¤J¤@­Ó¶µ¥Ø¡C¦b¤@­Ó¦h¦C²M³æ¤è¶ô©Î¤U©Ô¦¡²M³æ¤è¶ô¤¤¥[¤J¤@¦æ¡C

                .List(.ListCount - 1, 0) = e            'ComboBox²Ä1Äæ : ¦r¦ê

                .List(.ListCount - 1, 1) = e.Row - ½s¸¹ 'ComboBox²Ä2Äæ : ¦C¸¹ 1 - ....

            End With

        Next

    End With

    For I = 0 To UBound(Ar)

      Set Ar(I) = Me.Controls("TextBox" & I + 1) '°}¦Cªº¤¸¯À³]¬°TextBox (ª«¥ó)

    Next

    Image1.PictureSizeMode = fmPictureSizeModeStretch

    '°Ñ¼ÆfmPictureSizeModeStretch= 1 :½Õ¾ã¹Ï¤ù¤j¤p¥H¶ñº¡ªí³æ©Î¬¡­¶¡A¦¹³]©w·|³y¦¨¹Ï¤ùªº¤ô¥­»P««ª½¤è¦V¤ñ¨Ò³Q§á¦±¡C

End Sub
Private Sub UserForm_Click() '¦bªí³æ¨S¦³±±¨î¶µªº¦a¤è«ö¤U·Æ¹«¥ªÁ䪺¨Æ¥ó

'1·í¹Ï¤ù¶Ç¦^ªí³æ,  ¹Ï¤ù¤£²M, ¥i¦³¤è¿ì¸Ñ¨M ':­×§ïÅã¥Ü­I´º¹Ï¤ùªº¤è¦¡

   With Image1

       If .PictureSizeMode = fmPictureSizeModeClip Then

           .PictureSizeMode = fmPictureSizeModeStretch

       ElseIf .PictureSizeMode = fmPictureSizeModeStretch Then

           .PictureSizeMode = fmPictureSizeModeZoom

       ElseIf .PictureSizeMode = fmPictureSizeModeZoom Then

           .PictureSizeMode = fmPictureSizeModeClip

       End If

    End With

' [   ±`                                   ¼Æ]  [­È]  [ »¡      ©ú]

'fmPictureSizeModeClip          0    µô±¼¹Ï¤ù¦h¥X¨Óªº³¡¤À ( ¹w³] )¡C

'fmPictureSizeModeStretch    1    ½Õ¾ã¹Ï¤ù¤j¤p¥H¶ñº¡ªí³æ©Î¬¡­¶¡A¦¹³]©w·|³y¦¨¹Ï¤ùªº¤ô¥­»P««ª½¤è¦V¤ñ¨Ò³Q§á¦±¡C

'fmPictureSizeModeZoom      3     ©ñ¤j¹Ï¤ù¡A¦ý¤£§á¦±¹Ï¤ù¤ô¥­»P««ª½¤è¦Vªº¤ñ¨Ò¡C

End Sub
Private Sub ComboBox1_Change()

    Dim Sp As Picture, I As Integer, R As Integer

    If ComboBox1.ListIndex > -1 Then                    '¿ï¾Ü ComboBox1ªº¤º®e

        R = ComboBox1.List(ComboBox1.ListIndex, 1)      'ComboBox²Ä2Äæ : ¦C¸¹ 1....

        For I = 0 To UBound(Ar)

            If I <> UBound(Ar) Then

                Ar(I).Text = Sh.Cells(½s¸¹ + R, I + 2)  '¦C¸¹ : ½s¸¹ + R

            Else

                '2, ¦b²Ä11­ÓTextBox11ª«¥ó¤¤, ¥i§_°µ¨ì§âsheet1²Ä11Äæ¤Î12Äæ¦X«÷Åã¥Ü,¦p123aaa

                 Ar(I).Text = Sh.Cells(½s¸¹ + R, I + 2) & Sh.Cells(½s¸¹ + R, I + 3)

             End If

        Next

    End If

    With Sh

        For Each Sp In .Pictures             '´M§äNÄ椤ªº¹Ï¤ù,½Æ»s¤§

            If Sp.TopLeftCell.Address(0, 0) = "N" & ½s¸¹ + R Then Sp.Copy: Exit For

        Next

        '§Q¥Î¹Ïªí¶×¥X¦sÀÉ

        With .ChartObjects.Add(1, 1, Sp.Width, Sp.Height)           '·s¼W ¹Ïªí

             .Chart.Paste                                           '¶K¤W ¹Ï¤ù

             .Chart.Export Filename:=ThePicture                     '¶×¥X ¹Ï¤ù

             .Delete                                                '§R°£ ¹Ïªí

        End With

    End With

    Image1.Picture = LoadPicture(ThePicture)                         'Image1 «ü©w¹Ï¤ù

End Sub
hong912

TOP

¦^´_ 18# hong912

½Ð¤W¶ÇµLªkŪ¨úªº°ÝÃDÀÉ®×
À³¸Ó¥u­n¬O¯à´¡¤J¨ì¤u§@ªí¤¤ªº¹Ï¤ù§¡¥iŪ¨ú¤~¹ï
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 19# Hsieh
Hsiehª©¤j, ¦­±á
¬Q©]¦Û¦æ¬ã¨s¤F«Ü¤[, ¥Î¬Û¾÷¤Î¤â¾÷Äá¼v¤F·Ó¤ù¤Î¤Wºô¤U¸ü¹Ï¤ù¸Õ¸Õ, ¨Ã¨S¦³°ÝÃD, ¦A¤F¸Ñ¹Ï¤ù®æ¦¡, ¤]¦³¤£¦P®æ¦¡, ¦P¼Ë¦a¯à¶Ç¦^¹Ï¤ù, «á¨Ó¤p§Ì§â¤£¯à¶Ç¦^ªº¹Ï¤ù°Å¤U©ñ¶i¹Ï¹³¤¤¤ß, ¦A±q¹Ï¹³¤¤¤ß¶K¦^Àɮפº, °ÝÃD³º¸Ñ¨M,
Á¹L¤j¤j¦^À³, ·P®¦..
hong912

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD