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

[µo°Ý] excel ¤½¦¡°ÝÃD #VALUE

[µo°Ý] excel ¤½¦¡°ÝÃD #VALUE

¦p¤U¸ü³sµ²
http://www.2shared.com/file/ajEuxUaL/999.html
§ï¤FÀx¦s®æ®æ¦¡,¤]±NK,LÄ檺­ÈCOPY¨ì§O³B,¦ACOPY¦^,³£¨S¥Î!
§Ú(´ú¸Õ)§âJ,K,L¤TÄæ­«KEY IN ¼Æ¦r,§YOK
°Ý1: JÄ椽¦¡¦³¤°»ò°ÝÃD¶Ü?
°Ý2: ¬°¦ó§Ú§âJÄæ(´ú¸Õ)ª½±µKEY IN ¼Æ¦r,¤´¤£¦æ? K,LÄ榳¦ó°ÝÃD?
°Ý3: ¬°¦ó¥u¦³L26ª½±µ­«KEY IN¼Æ¦r§YOK?
ÁÂÁ¦^µª!
Symis

¥i¦æ­C, ·P®¦!
½Ð°Ý,CODE 63ªº½X,¬O«ç»ò¬Ý¥X¨Óªº?
Symis

TOP

¤S¾Ç¨ì¤@©Û
·P®¦!

¦³¤H±Ð§Ú¥t¤@©Û(VBA),µ¹±z°Ñ¦Ò:
Sub abc()
Dim s As Worksheet
Set s = ActiveSheet
Dim i As Integer
Dim k As String
Set w = ActiveWorkbook
For i = 3 To 27
'¥H¤U³]©w¼Æ¦r®æ¦¡¤p¼Æ¨â¦ì
s.Range("K" & i).NumberFormatLocal = "0.00_ "
s.Range("L" & i).NumberFormatLocal = "0.00_ "
s.Range("M" & i).NumberFormatLocal = "0.00_ "
'­«·sµ¹­È
k = s.Range("K" & i).Value
s.Range("K" & i).Value = Val(k)
k = s.Range("L" & i).Value
s.Range("L" & i).Value = Val(k)
Next i
MsgBox "³B²zOK"
End Sub
Symis

TOP

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD