FC2ブログ

選択したセルに同じ数を追加するマクロ

2017–06–20 (Tue) 00:24
エクセルマクロはエクセルなのに何故かセルにアクセスするともの凄く遅くなります。
その為作成したマクロになります。
これは選択したセルに数を足すマクロです。
需要があるかは分かりませんが……。

Sub 配列に代入して計算するマクロ
nyuryoku = Selection.Address
Dim Sets As Variant
Dim SetsU As Long
Sets = Range(nyuryoku)
SetsU = UBound(Sets)
SetuL = UBound(Sets, 2)
dum Kazu as Long
Kazu = InputBox("足す数を入力してください")
For i = 1 To SetsU

For j = 1 To SetuL
On Error Resume Next

Sets(i, j) = Sets(i, j) + Kazu
スポンサーサイト



« 選択したオートシェイプに名前を付ける | HOME |  シェイプマクロを極める。 »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク