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

[µo°Ý] ½Ð°Ý³oºØ¼Ï¯Ã®æ¦¡ªº¦Ê¤À¤ñ­n¦p¦ó§Ö³t­pºâ?

[µo°Ý] ½Ð°Ý³oºØ¼Ï¯Ã®æ¦¡ªº¦Ê¤À¤ñ­n¦p¦ó§Ö³t­pºâ?

§Ú·Q­n­pºâ¨C¤@­Ó²ºÙ¦b¨º¤@­Ó±Ú¸s¸Ì­±ªº¦Ê¤À¤ñ
°ÆÀɤ¤¦³°w¹ï²Ä¤@­Ó´Ìª©¸òPE½¤­pºâ

§Ú¦³·Q¹L¥Î°j°é¤è¦¡¡A¦ý¬O­n§PÂ_¨C¤@±Ú¸sªºÁ`­p
¥Ø«e§ÚÁÙ¨S·Q¨ì¦n¤è¦¡







Book1.rar (27.44 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¤U­±¬O§Ú¸Õ¥X¨Óªº
À³¸ÓÁÙ¦³§ó¦³®Ä²vªº¤è¦¡
  1. Sub «~¦W¦Ê¤À¤ñ()
  2.     Application.ScreenUpdating = False
  3.     For r = 7 To Range("C65536").End(xlUp).Row + 2 Step 2
  4.     n = Cells(r - 1, 1).End(xlDown).Row
  5.     If r < n And Cells(r - 1, 2) <> "" Then
  6.         For c = 4 To 8
  7.         If Cells(r - 1, c) <> "" Then
  8.         Cells(r, c) = Cells(r - 1, c) / Cells(n, c)
  9.         End If
  10.         Next
  11.     End If
  12.     If Left(Cells(r, 1), 3) = "¦Ê¤À¤ñ" Or Right(Cells(r, 1), 3) = "¦Ê¤À¤ñ" Then
  13.         For x = 4 To 8
  14.         Cells(r, x) = 1
  15.         Next
  16.     End If
  17.         
  18.     Next

  19. End Sub
½Æ»s¥N½X
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¥i§_´f½ç­ì©lªº¼ÒÀÀ¸ê®Æ¡A§Ú¸ÕµÛ°µ¬Ý¬Ý¡C
³o­Ó¦b·sª©2013¦n¹³¤£¥Î¼gµ{¦¡¡C

TOP

³o­Óµ²ªG½Ð§A¬Ý¬Ý¡C

Output.zip (43.6 KB)

TOP

¦^´_ 4# Baracuda


    ÁöµMªí¹F¤è¦¡¤£¤@¼Ë
   ¦ý¬Oµ²ªG¬O¤@¼Ë
   §Ú¬O¥Î2003
    ©Ò¥H¦pªG¥u¯à¥Î2013¥h°µ´N¥u¯à³o¼Ë
   ¤£¹L§Ú¤]ı±o¼Ï¯Ã¥»¨­ªº¥\¯àÀ³¸Ó­n¯à°µ¨ì³o¦U
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 5# freeffly

¥t¥~·Qªk¡A¼W¥[»²§UÄæ¦ì¡A²Î­p«~¦W¦~«×²bÃB¡A¦A§Q¥Î¼Ï¯Ã¤ÀªRªº·s¼W­pºâÄæ¦ì¡A­pºâ­Ó¦~«×¤§Â²ºÙ¦û«~¦Wªº¤ñ²v¡C





Book1_rev1.rar (29.23 KB)
diabo

TOP

¦^´_ #4¼Ó Freeffly ¡A³o¬O¥Î2010ª©°µªº¡C
¥t¥~ #5¼Ó diabo ªº°µªk¡A¬Ý¨Ó¤]¥i¥H¸Ñ¨M¡C§A°Ñ¦Ò¬Ý¬Ý¡C

¦pªG°Ê VBA À³¸Ó¤]¥i¥H¡A¦ý¬O¬Ý¨Ó°Ê§@¤£¤p¡C

TOP

¦^´_ 7# Baracuda
¦^´_ 6# diabo

ÁÂÁ¦U¦ì¤j¤j¦^ÂÐ
¥Ø«e§Ú¨Ï¥Î¤W­±ªºvba¬Ook
ÁöµM§PÂ_¤W¤£¬O¥HÄYÂÔªº¤è¦¡

»²§UÄæ¼È¤£¦Ò¼{
¦]¬°¸ê®Æ¶q¤Ó¦h
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD