Toggle navigation
(株)SSKPC
SSPCのブログ
アクセス
お問い合わせ
各種記事
ソフト開発
ホーム
セルがクリックされた場所
次の文書
Dim 変更先Row
Dim 変更先Column
Dim 変更元Row
Dim 変更元Column
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo エラーメッセージ ' エラー処理を設定します。
'MsgBox Target.Row
'MsgBox Target.Column
'MsgBox Target.Value
i = Target.Row
j = Target.Column
値 = Target.Value
'変更先セル
変更先Row = i
変更先Column = j
If 値 = "1" Then 変更先Column = 変更先Column + 1
If 値 = "2" Then 変更先Column = 変更先Column + 2
If 値 = "3" Then 変更先Column = 変更先Column + 3
If 値 = "4" Then 変更先Column = 変更先Column + 4
If 値 = "5" Then 変更先Column = 変更先Column + 5
If 値 = "6" Then 変更先Column = 変更先Column + 6
'一時的にイベントを無効状態にする。
Application.EnableEvents = False
Range(Cells(変更元Row, 変更元Column), Cells(変更元Row, 変更元Column)).Select
Selection.Interior.ColorIndex = xlNone
Range(Cells(変更先Row, 変更先Column), Cells(変更先Row, 変更先Column)).Select
With Selection.Interior
.ColorIndex = 38
.Pattern = xlSolid
En
コメント入力欄
← 左の文字をここへ入力後 登録ボタンをクリックしてください
(サイト管理者承認後掲載されます)
サイト内記事検索
ExcelVBA
列文字変換
SqlServer データ追加、更新、削除
SqlServerからのデータ取得2
SqlServerからのデータ取得
SqlServerへの接続
列で並替え
メモリ不足
全モジュールで有効な変数の設定
InputBox ユーザ使用者の判断を仰ぐ
1次元 2次元 配列を使用する
改行を含む文字列の処理をするには
条件を満たしている間 繰返し処理を
一定回数 繰り返し処理を行う
値と比較し条件に応じて処理を行う2
値と比較し条件に応じて処理を行う1
変数の宣言と値の代入をする
VBAからセルに値を入力するには
セル範囲の幅高さを取得する
開発タブ(VBA)を表示するには
変数の値を確認する ウォッチ式
ブレイクポイントを設定する
ブックの一覧を取得する
数値の絶対値を取得する
指定フォルダのファイル名検索2
図を動かす
セルがクリックされた場所
楕円を書く
Excel2010 フォームコントロール チェックボックスの判定
Webカラーを作成する
IP検索1
IP検索3
IP検索2
ボタンの色
改ページ毎合計
リストボックス
指定フォルダのファイル名検索1
処理中のメッセージ
文字バイト数カウント
乱数を利用する
枠線の色を変える
文字列検索(部分一致)
文字列検索(全てが一致)
図のサイズ変更
図の削除(すべて)
図の削除(一部)
任意のブックが開いているか
ステータスバー(StatusBar)
文字列の分割(Split関数)
<
2024年5月
>
日
月
火
水
木
金
土
28
29
30
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
1
2
3
4
5
6
7
8