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

[µo°Ý] ¬O§_¥i¥H¥Î®y¼Ð¦¡Åª¨ú·Q­nªº¸ê®Æ?

[µo°Ý] ¬O§_¥i¥H¥Î®y¼Ð¦¡Åª¨ú·Q­nªº¸ê®Æ?

§Ú¦bºô¤W¬Ýº¡¦h¸ê®Æ
±NCells()ªº¦C³]¬°ÅܼƨS°ÝÃD¡A
¦ý¬OÄæ«ç»ò³]©w³£·|¥X²{©w¸q¤Wªº¿ù»~¡C
:'( :'( :'(

¦A³Â·Ð¦U¦ì°ª¤âÀ°¦£¸Ñ´b©Î«üÂI¤@¤U¤£¤~ªº¤p§Ì ..

¤ñ¹ï01.rar (72.32 KB)

¦^´_ 1# macro0029


¦Û¦æ¸Ñ¨M¤F!
¦bÄæ¦ì«á¥[­ÓÅܼƴN¸Ñ¨M¤F TextBox3 = Worksheets("¤ñ¹ï").Cells(j, 1 + i).Value
·PÁ¤j®a ~

TOP

n = Application.Match(--TextBox1.Value, Worksheets("¤ñ¹ï").[A1:A100], 0)
i = Application.Match(TextBox2.Value & "¤ë", Worksheets("¤ñ¹ï").[B1:M1], 0)
TextBox3 = Cells(n, i + 1).Value

´£¨Ñ°Ñ¦Ò

TOP

¦^´_ 2# macro0029

¨Ó¤F¸Ñ¬°¦ó·|¦³¿ù»~

Cells(¦C, Äæ)
¦C¥u¯à¬°¾ã¼Æ »Ý¬° 1¨ì Rows.Count ¤§¶¡
Äæ¯à¬°¾ã¼Æ »Ý¬° 1¨ì Columns.Count ¤§¶¡
Äæ¤]¥i¥H¬O¤å¦r ¬° 1¨ì Columns.Count ¤§¶¡Ä檺­^¤å¦r¥À

TextBox1.Text,¬O¼Æ¦rªº¤å¦r
¦b¦C·|¦Û°ÊÂର¼Æ¦r®æ¦¡.
TextBox2.Text,¬O¼Æ­Èªº¤å¦r
¦ýÄæ¥i¥H¬O(¤å¦r,¼Æ¦r),©Ò¥H¤£·|¦Û°ÊÂà¬O"¼Æ¦rªº¤å¦r"¬°¼Æ­È

¸Õ¸Õ¬Ý
Dim i As Integer, n As Integer
©Î¬O
i = TextBox2.Text + 0
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD