Excel VBAについてです。
少しだけ知識はあるのですが、
うまくいかなかったので
質問させていただきます。
下記システムをVBAで作ろうと考えています。
イメージ写真も添付します。
■作成したいシステム(写真①)
ある測定マップデータを座標指定して
列ごとリジェクトする
座標を登録するためのシステム作り
ユーザーフォームにて
座標登録する仕組みは作成済みです。
写真②の入力用フォームに値が入ります。
ユーザーフォーム登録ボタン実行時に
今回の処理を行いたいです。
2回目以降用に実行ボタン作成予定です。
まず、前提として入力用フォームの
X座標、Y座標両方のセルに
値が入ることはありません。どちらかのみです。
写真②はX座標に
1〜3と登録された場合です。
X座標の1〜3列をリジェクトしたいため
Yが1〜5まで可変します。
それを1〜3まで繰り返す。
写真③は逆の処理です。
Y座標に1〜3と登録された場合
写真④は座標登録処理2回目です。
1回目のデータの下に入るようにしたいです。
For nextを使ってやってみたのですが
うまくできませんでした。
教えていただきたいです。
説明下手で、すみません。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんばんは。
何となくでの回答になりますが、X用とY用で分けて作れば良いのでは?と
思いますが。 試していないので、違った結果でしたら、すみません。
あと、Dimなどは記載を省いているので、記載して下さい。
n=2 'A列の空白セルの行を入れる。 End(xlup).Row+1など
If Range("E1").Value >0 then
For I=Range("E1").Value to Range("G1").Value
For J=1 to 5
Cells(n,1).Value=I
Cells(n,2).Value=J
n=n+1
Next J
Next I
Else If Range("E2").Value >0 then
For I=Range("E2").Value to Range("G2").Value
For J=1 to 5
Cells(n,1).Value=J
Cells(n,2).Value=I
n=n+1
Next J
Next I
End If
No.3
- 回答日時:
「Sheet1のA列B列にデータを追加したら、そのA列B列の値で指定されるセルに色をつけて、色の着いている領域を、排除領域として視覚的に表現したい」という部分だと、Sheet1にデータを追加して書き終えたら、次のマクロを駆動すると、Sheet2に色はつきます。
でも、変ですよね。 やりたいことのイメージがつかないです。
Dim Sht1, Sht2
Dim LasR, i, jL, jR
Set Sht1 = Sheets(1): Set Sht2 = Sheets(2)
LasR = Sht1.Cells(Rows.Count, 1).End(xlUp).Row
Sht2.Activate
Cells.Interior.Pattern = xlNone
For i = 2 To LasR
jL = Sht1.Cells(i, 1): jR = Sht1.Cells(i, 2)
Range(Cells(i - 1, jL), Cells(i - 1, jR)).Interior.ColorIndex = 9
Next
No.2
- 回答日時:
なさりたいことのイメージがよく分かりません。
「フォームに入力・確定させたら、そのデータを元に、Sheet1のA列B列にデータを追加していく」ということが目標でしょうか。
「Sheet1のA列B列にデータを追加したら、そのA列B列の値で指定されるセルに色をつけて、色の着いている領域を、排除領域として視覚的に表現したい」ということが目的でしょうか。
{X座標に1〜3と登録入力したら、Yが1〜5まで可変します。それを1〜3まで繰り返す}
「1〜5まで可変します」と書かれていますが、指定してない方の座標はいつも1~5の固定の5つ」のように見えますが、それで良いのでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
- 知的財産権 【至急】商標登録の区分がわからず困っています。 3 2023/02/21 12:11
- その他(ニュース・時事問題) 「マイナポイント」の登録について 5 2022/12/12 22:36
- 銀行・ネットバンキング・信用金庫 paypay銀行を利用されている方へ。 1 2022/06/29 15:13
- 物理学 ね振り子の角度方向の運動と、コリオリ力。 1 2022/12/03 14:36
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- 知的財産権 例のコンテンツを商標登録した人について 1 2022/05/15 20:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
座標(x,y)間(=2点)の...
-
重分積分の極座標変換について
-
「原点に返る」と「原点に戻る...
-
2022年 東京理科大 難易度判定
-
右下の小さい数字について
-
なぜベクトルの外積の向きが右...
-
複素数平面についてです ①xy平...
-
「0でない2つのVのベクトルu,v...
-
数学IIの軌跡の問題です。
-
複素数平面と座標平面の対応に...
-
地球上の2点間の距離
-
大学の複素数の問題なんですが...
-
【数学】 解説の下から4行目が...
-
エクセルでグラフの作り方 軌...
-
東大過去問 最大と最小
-
N点間の中心と重心の求め方
-
【エクセル】傾いた楕円の長軸...
-
三角関数 範囲が-πからπのとき...
-
円と放物線が1点で接する条件
-
楕円→円への変換について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
座標(x,y)間(=2点)の...
-
「原点に返る」と「原点に戻る...
-
距離と方向角から座標を求める...
-
距離、方位角から座標を求める方法
-
この解説の(5)が分かりません...
-
楕円の角度とは?
-
二次関数 (2)のAB=2√3である...
-
複素数平面についてです ①xy平...
-
右下の小さい数字について
-
写真の問題について どうして赤...
-
N点間の中心と重心の求め方
-
楕円の円周上の座標を求める計...
-
2次関数(数I)
-
【数学】 解説の下から4行目が...
-
測量座標と算数座標の違い
-
複素数平面と座標平面の対応に...
-
座標値 世界測地系と日本測地系...
-
空間上の測定された点群から最...
-
二点の座標から角度を求めるには?
-
エクセルでグラフの作り方 軌...
おすすめ情報
その認識であっています。
色をつける仕組みは出来ているので
座標を入力する仕組みのみを作りたいです。
XとYどちらかしか入力しない仕組みで
入力された方(例:X1〜3)は固定で
Y1〜5まで1つずつ増えて入力していきたいです。
なるほど!
一度試してみます。