Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

118 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【80108】Re:特定セル範囲のダブルクリックマクロ

猫の毛だらけ - 18/8/16(木) 11:49 -


	引用なし

	パスワード

ああ,なるほど。

ブレークポイントを置いて
If Target.Address =
にカーソルを持っていくと"$A$1"とか表示されても
実際には対応していないのですね。

ありがとうございました。

・ツリー全体表示


	【80107】Re:特定セル範囲のダブルクリックマクロ

γ - 18/8/16(木) 11:31 -


	引用なし

	パスワード

冒頭にブレークポイントを置いてステップ実行してみてください。
myCは数値ですよ。（"A"とか"C"が返るわけではありません）
"$" & myC & "$" & myR　ではマッチしませんね。

Target.Row と　Target.Columnで判定してはどうですか？

・ツリー全体表示


	【80106】特定セル範囲のダブルクリックマクロ

猫の毛だらけ - 18/8/16(木) 10:28 -


	引用なし

	パスワード

いつも拝見させていただいています。
セルＡ１、Ｂ１、Ｃ１のどれかをダブルクリックすると
ｇｏｏｄのメッセージが表示されるようにコードを書いたつもりですが
ｅｒｒｏｒしか表示されません。
どこがいけないのかお教えください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myTarget As Range
Dim myC As String, myR As String
myC = Selection.Column '列選択
myR = 1

Set myTarget = Application.Intersect(Target, Range("A1:C1"))
　If myTarget Is Nothing Then
　　 Exit Sub
　End If
　
　If Target.Address = "$" & myC & "$" & myR Then
　　 MsgBox "good"
　 Else: MsgBox "error"
　End If
　
End Sub

・ツリー全体表示


	【80105】Re:エクセル上からアクセルファイルに読...

よろずや - 18/8/15(水) 14:50 -


	引用なし

	パスワード

こちらをどうぞ。

ht tps://msdn.microsoft.com/ja-jp/library/cc377103.aspx

・ツリー全体表示


	【80104】エクセル上からアクセルファイルに読み取...

みかん - 18/8/15(水) 0:26 -


	引用なし

	パスワード

こんにちは。みかんと申します。

エクセル上から指定したアクセスファイルにパスワードをかけて保存するVBAの記述がわかれば教えていただきたいです。よろしくお願いします。

アクセスファイルにパスワードをかけるには排他モードで開いてから
パスワードをかけることはわかりましたが、パスワードを付けて保存するという
ところのコードが解りません。

Sub acccespass()

Dim accApp As Object

Set accApp = CreateObject("Access.Application")
accApp.Visible = True

accApp.OpenCurrentDatabase "C:\Users\mikan\Desktop\S01.accdb", True, False

↑排他モードでは開ける

ここのパスワードをつけて保存
このコードが解りません。
accApp.Password = "pass"
はダメでした。。。。

accApp.Quit
Set accApp = Nothing

End Sub

よろしくお願いします。

・ツリー全体表示


	【80103】Re:右ダブルクリックした際に今日の日付...

ヒロポン - 18/8/12(日) 23:36 -


	引用なし

	パスワード

やりたい事ができました。
これからはストレスなく入力できます、本当にありがとうございました。

・ツリー全体表示


	【80102】Re:右ダブルクリックした際に今日の日付...

γ - 18/8/12(日) 22:00 -


	引用なし

	パスワード

横から失礼します。

既に指摘があるように、
ExcelVBAには右ダブルクリックというイベントプロシージャーは無いので、
どうしても右ダブルクリックで無いと困るというなら、
「マウス　左右反転」などで検索して、
左右を反転する設定にするより無いです。

・ツリー全体表示


	【80101】Re:右ダブルクリックした際に今日の日付...

マナ - 18/8/12(日) 20:22 -


	引用なし

	パスワード

▼ヒロポンさん：

>右クリックでは実行できないんでしょか？
>希望としてどの場所のセルを右ダブルクリックしても実行できる様にはできないのでしょうか？

右クリック？
右ダブルクリック？

どんなイベントプロシージャが用意されているか確認して
使えそうなものを選ぶとよいです。
ht　tp://home.att.ne.jp/zeta/gen/excel/c04p59.htm

・ツリー全体表示


	【80100】Re:右ダブルクリックした際に今日の日付...

ヒロポン - 18/8/12(日) 15:08 -


	引用なし

	パスワード

回答ありがとうございます。
実行はできましたが、
右クリックでは実行できないんでしょか？

希望としてどの場所のセルを右ダブルクリックしても実行できる様にはできないのでしょうか？

・ツリー全体表示


	【80099】Re:右ダブルクリックした際に今日の日付...

マナ - 18/8/12(日) 13:15 -


	引用なし

	パスワード

▼ヒロポンさん：

A列を左ダブルクリックしたときに実行さされます。
（ウインドウ枠固定でA列が常時表示されている前提）

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　If Target.Column > 1 Then Exit Sub
　　Cancel = True
　　Application.Goto Cells(1, Day(Date) + 1)
End Sub

・ツリー全体表示


	【80098】右ダブルクリックした際に今日の日付行（...

ヒロポン - 18/8/12(日) 12:24 -


	引用なし

	パスワード

A1　2018　　　　　　　　
A2　8　　　　　　　　　 B2=DATE($A$1,$A$2,1)　　C2=IF(B2>=$A$3,"",B2+1)
A3　=EOMONTH(B2,0)　　　B3=TEXT(B2,"aaa")　　　 C3=TEXT(C2,"aaa")
A4　朝食　1000円　　　　2000円
A5　昼食　2000円　　　 3000円
A6　夕食　3000円　　　　4000円

この表で食費を入力しているのですが毎日入力している訳ではなく1週間に1回ぐらいの頻度で入力しております、
その為アクティブのセルを探す所から始まりそれが毎回の事なのでストレスに感じます。
その為右ダブルクリックすると本日の日付行（2行目）のセルが選択されると楽に入力出来助かります。
VBAは全くの初心者です。

・ツリー全体表示


	【80097】Re:計算式によるクロス集計方法について

γ - 18/8/12(日) 9:38 -


	引用なし

	パスワード

ポイントは、・「レポートのレイアウト」を「表形式」にすること・ code　 name　 unitの各フィールドの小計をなしにすることでしょうか。合計 / quantity　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　201801　201802　201803　総計 ABCD01　Ａ01　　dozen　 10　　　20　　　　　　　30 ABCD02　Ａ02　　kg　　　70　　　　　　　　　　　70 ABCD03　Ａ03　　Cs　　　　　　　　　　　50　　　50 総計　　　　　　　　　　80　　　20　　　50　　　150 といった結果が得られます。（行、列の小計をなくすことも可能です）色々な形式が可能ですから、再トライされるとよいでしょう。ちなみに、こちらはVBA質問箱（Excel)なので、基本的にはVBAの質問ということになりますね。

・ツリー全体表示


	【80096】Re:計算式によるクロス集計方法について

夜勤 - 18/8/11(土) 19:47 -


	引用なし

	パスワード

マナさま
ご回答いだだき、ありがとうございます。
ピボットテーブルという機能を試してみました。
当方の間違いがあったかもしれませんが、複数項目のセットがうまくできませんでした。仕方がなく、計算式方式に方向転換しました。

▼マナさん：
>▼夜勤さん：
>
>>
>>以下の基本データがあります、Excelの関数を使って、クロス集計をするには
>>どうすれば、計算できるのでしょうか？
>
>エクセルには、ピボットテーブルという機能があります。

・ツリー全体表示


	【80095】Re:計算式によるクロス集計方法について

マナ - 18/8/11(土) 8:31 -


	引用なし

	パスワード

▼夜勤さん：

>
>以下の基本データがあります、Excelの関数を使って、クロス集計をするには
>どうすれば、計算できるのでしょうか？

エクセルには、ピボットテーブルという機能があります。

・ツリー全体表示


	【80094】計算式によるクロス集計方法について

夜勤 - 18/8/10(金) 20:48 -


	引用なし

	パスワード

こんばんは
　
　仕事上で、他システムからのExcelデータを基にクロス集計をかけたいですが、
やり方がわからなくて、投稿しました。

以下の基本データがあります、Excelの関数を使って、クロス集計をするには
どうすれば、計算できるのでしょうか？
ご教示いただけますうでしょうか。

基本データ
code　 name　 unit　 SellingYYMM　　quantity
ABCD01 Ａ01　 dozen　201801　　　　 10
ABCD01 Ａ01　 dozen　201802　　　　 20
ABCD02 Ａ02　 kg　　 201801　　　　 30
ABCD02 Ａ02　 kg　　 201801　　　　 40
ABCD03 Ａ03　 Cs　　 201803　　　　 50
.
.

クロス集計結果
code　 name　 unit　 201801　　201802　　201803
ABCD01 Ａ01　 dozen　10　　　　20
ABCD02 Ａ02　 kg　　 70
ABCD03 Ａ03　 Cs　　　　　　　　　　　　 50

・ツリー全体表示


	【80093】Re:数値をテキストに変換する

Jaka - 18/8/7(火) 17:34 -


	引用なし

	パスワード

ああ、String があったんだ・・・

MsgBox Format(123, String(10, "0"))

・ツリー全体表示


	【80092】Re:再計算のやり方

Jaka - 18/8/7(火) 17:24 -


	引用なし

	パスワード

追加

F2 キー、Enter でも、再計算されると思います。
（セルの内容は同じ、つまり編集状態にして、Enterキーを押すだけで編集されたと認識します。）

セルの挿入削除でも再計算されます。

・ツリー全体表示


	【80091】Re:再計算のやり方

Jaka - 18/8/7(火) 17:11 -


	引用なし

	パスワード

▼nana さん：
>入力したセルを減らした際に再計算されません。

すみません。
状況がよく解ってません。
セルの内容を変えると再計算されるはずですが？？？
何も入ってないセルにDeleteキーを押しても再計算はされると思いますけど。
2013とか2016で変わったかもしれないけど？？

この辺かな？

ht　tps://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/worksheet-calculate-method-excel

・ツリー全体表示


	【80090】Re:数値をテキストに変換する

Jaka - 18/8/7(火) 17:00 -


	引用なし

	パスワード

MsgBox Format(123, "0000000")

MsgBox Format(123, Application.Rept("0", 10))

？？？

・ツリー全体表示


	【80089】再計算のやり方

nana - 18/8/7(火) 15:19 -


	引用なし

	パスワード

VBA初心者です。

A1～G1まで時刻データが入力されています。
もしA1～G1までのセルの個数が特定の値を超えてしまう場合にMsgboxを表示されるように設定しましたが、
入力したセルを減らした際に再計算されません。

どうしたら再計算されるようになりますでしょうか。

宜しくお願い致します。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

118 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free