2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 97

471 :470:2011/06/22(水) 20:11:49.06
続き(こっちが実際にやってる部分)
Function ex_466(w_Rng As String) As String
Dim c As Range, r As Variant
 Set c = ActiveSheet.Range(w_Rng)
 r = c.Value
 If IsNumeric(r) And (r > 0) Then
  ActiveSheet.Range((c.Row + 1) & ":" & (c.Row + r)).Insert
  ActiveSheet.Range(c.Row & ":" & c.Row).Copy
  ActiveSheet.Range((c.Row + 1) & ":" & (c.Row + r)).PasteSpecial
  Application.CutCopyMode = False
 Else
  ex_466 = "": MsgBox (c.Address & "で異常終了"): Exit Function
 End If
 ex_466 = c.Offset(r + 1, 0).Address
End Function

345 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.01.03 2014/02/20 Code Monkey ★
FOX ★ DSO(Dynamic Shared Object)