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

[µo°Ý] EXCEL¹Ï¤ù«ü©w¦ì¸m

[µo°Ý] EXCEL¹Ï¤ù«ü©w¦ì¸m

¥»©«³Ì«á¥Ñ u800901 ©ó 2021-2-3 11:36 ½s¿è

¦U¦ì«e½ú¦n

½Ð°Ý¦b¦Û­qªí³æ¤¤ªº¹Ï¤ù¦p¦ó«ü©w¦ì¸m¡H

¤p§Ì¥¿¦b»s§@¨Ï¥ÎªÌ¤¶­±

»Ý­n§â¨Ï¥ÎªÌ¿é¤J¤º®eÅã¥Ü¦b¦Û­qªí³æ¤¤

­ì¥»µ{¦¡¤¤§Ú³]©w¬YSheetªºA1:BC9¬°Print_Area

³o¼Ë´N¥i«ü©w"¹Ï¤ù53"¦ì¸m

¦ý¬O¦Û­qªí³æ¤ºªº¹Ï¤ù­n¦p¦ó«ü©w³o­Ó¦ì¸m¡H

Google¤@­Ó¤W¤È¡A³£¨S¬Ý¨ì¬ÛÃöªº¸ê®Æ

§Æ±æ¦U¦ì«e½ú¯à«üÂI¤@¤U¤p§Ì¡AÁÂÁ¡C

036.JPG (14.11 KB)

036.JPG

037.JPG (107.91 KB)

037.JPG

¤p§Ì¤S¨Ó¦Û°Ý¦Ûµª¤F...

ªá¤F¾ã­Ó±ß¤W³£¦b§äµª®×¡A³Ì«á²×©ó¯à¨Ï¥Î¤F

GOOGLE¨ì¤@½g¤å³¹¡A¼ÐÃD¬O"Display a Range of Cells from a Worksheet on a Userform"

¥Ñ©ó¤£ª¾¹D­þÃä¥X¤F°ÝÃD¡A¥u¦n¥h§ä­ì©lÀÉ

±µµÛª½±µ½Æ»sModule(modPastePicture)¨ì¦Û¤vªºÀɮפº

µM«á´N¥i¥H·ÓµÛ¤å³¹¤ºªº¤èªk¨Ï¥Î¤F

³Ì²×§Úµ¹«ö¶sªºµ{¦¡¦p¤U
  1. Paivate Sub CommandButton1_Click()

  2. Worksheets("XXX").Range("A1:BC16").CopyPicture xlPrinter,xlPicture
  3. Me.Image1.Picture=PastePicture(xlPicture)

  4. End Sub
½Æ»s¥N½X
«ö¤U«ö¶s«á¡A´N¯à¬Ý¨ìªí³æ¤ºªº¹Ï¤ù«_¥X¦Û¤v«ü©wªº½d³ò


§¹¥þ¨SÅv­­¡A¥u¯à¦b¤£¤À°Ï°Ý°ÝÃD...¯u¬OÃø¹L

³sµ²¤]¤£¯à¥Î...

TOP

¦^´_ 2# u800901


    §Ú¤]·Q¤F¸Ñ!!§Ú¬O­n´¡¤J¹Ï¤ù¥Ñ¥ª¦Ü¥k¥Ñ¤W¦Ü¤U!!
¥i¬O¹ïµ{¦¡§¹¥þ¤£¼ôQQ

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD