pkh4989 の回答履歴

いつもお世話になっております。 ここで 様々な方にご教授いただいて Excelのマクロを反映させられたのですが マクロを貼り付けた後で列を削除したり、各種編集をしていたら 今まで動作していたマクロが動作しなくなってしまいました。 以下 前文を記しますが 動作しないのは 下のマクロです。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rOne As Range Dim intNo As Integer If Target.Column <> "15" Then Exit Sub For Each rOne In Target intNo = Val(StrConv(rOne.Value, vbNarrow)) Select Case (intNo) Case 1 Range("p" & rOne.Row).Select Case 2 Range("x" & rOne.Row).Select Case 3 Range("z" & rOne.Row).Select Case Else End Select Next rOne If Intersect(Target, Range("L3:L3001")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Application.ScreenUpdating = False Application.EnableEvents = False With Target.Offset(0, 1).Validation .Delete .Add Type:=xlValidateInputOnly .IMEMode = xlIMEModeHiragana End With If Target Like "###-####" Then Target.Offset(0, 1).Select SendKeys Target.Value SendKeys "{ }" SendKeys "{ENTER}" End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub 上のマクロ（セルを飛ばす）は正常に動作してくれるのですが 下のマクロで郵便番号を自動的に隣のセル（Ｍ列）に反映してくれなくなってしまいました。 Ｍ列のとなり（たしかＮ列だったと思うのですが）を削除したあたりから この郵便番号マクロが動作しなくなってしまいました。 どこか おかしな所はないか見ていただけますでしょうか。 宜しくお願い致します。

いつもお世話になっております。 ここで 様々な方にご教授いただいて Excelのマクロを反映させられたのですが マクロを貼り付けた後で列を削除したり、各種編集をしていたら 今まで動作していたマクロが動作しなくなってしまいました。 以下 前文を記しますが 動作しないのは 下のマクロです。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rOne As Range Dim intNo As Integer If Target.Column <> "15" Then Exit Sub For Each rOne In Target intNo = Val(StrConv(rOne.Value, vbNarrow)) Select Case (intNo) Case 1 Range("p" & rOne.Row).Select Case 2 Range("x" & rOne.Row).Select Case 3 Range("z" & rOne.Row).Select Case Else End Select Next rOne If Intersect(Target, Range("L3:L3001")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Application.ScreenUpdating = False Application.EnableEvents = False With Target.Offset(0, 1).Validation .Delete .Add Type:=xlValidateInputOnly .IMEMode = xlIMEModeHiragana End With If Target Like "###-####" Then Target.Offset(0, 1).Select SendKeys Target.Value SendKeys "{ }" SendKeys "{ENTER}" End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub 上のマクロ（セルを飛ばす）は正常に動作してくれるのですが 下のマクロで郵便番号を自動的に隣のセル（Ｍ列）に反映してくれなくなってしまいました。 Ｍ列のとなり（たしかＮ列だったと思うのですが）を削除したあたりから この郵便番号マクロが動作しなくなってしまいました。 どこか おかしな所はないか見ていただけますでしょうか。 宜しくお願い致します。

いつもお世話になっております。 ここで 様々な方にご教授いただいて Excelのマクロを反映させられたのですが マクロを貼り付けた後で列を削除したり、各種編集をしていたら 今まで動作していたマクロが動作しなくなってしまいました。 以下 前文を記しますが 動作しないのは 下のマクロです。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rOne As Range Dim intNo As Integer If Target.Column <> "15" Then Exit Sub For Each rOne In Target intNo = Val(StrConv(rOne.Value, vbNarrow)) Select Case (intNo) Case 1 Range("p" & rOne.Row).Select Case 2 Range("x" & rOne.Row).Select Case 3 Range("z" & rOne.Row).Select Case Else End Select Next rOne If Intersect(Target, Range("L3:L3001")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Application.ScreenUpdating = False Application.EnableEvents = False With Target.Offset(0, 1).Validation .Delete .Add Type:=xlValidateInputOnly .IMEMode = xlIMEModeHiragana End With If Target Like "###-####" Then Target.Offset(0, 1).Select SendKeys Target.Value SendKeys "{ }" SendKeys "{ENTER}" End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub 上のマクロ（セルを飛ばす）は正常に動作してくれるのですが 下のマクロで郵便番号を自動的に隣のセル（Ｍ列）に反映してくれなくなってしまいました。 Ｍ列のとなり（たしかＮ列だったと思うのですが）を削除したあたりから この郵便番号マクロが動作しなくなってしまいました。 どこか おかしな所はないか見ていただけますでしょうか。 宜しくお願い致します。

お世話になっております。 以前こちらでご教授いただいたマクロを登録して 上手い事 動作していて助かっていたのですが 自分が変な所をイジってしまった為に 上手く動作しなくなってしまいました。 どこが おかしいのか、再度ご教授ください。 宜しくお願い致します。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rOne As Range For Each rOne In Target Select Case (rOne.Value) Case 1 Range("Q" & rOne.Row).Select Case 2 Range("Y" & rOne.Row).Select Case 3 Range("AA" & rOne.Row).Select Case Else End Select Next rOne というマクロをいただき、リストで 1～3の数字を選ぶようにしていたのですが そのリストをイジってしまい、 1、あああ 2、いいい 3、ううう というように文字列を挿入した結果「Q」「Y」「AA」列にセルが飛ばなくなってしまいました。 解決方法をご教授ください。 宜しくお願い致します。

苦手分野の課題を出していただける方いませんか？ LoopとFor文が苦手でどうしてもマスターしたいのでよかったら答え合わせ的なこともしてくれて間違いも指摘してくれる方、よろしくおねがいします。 課題は2007バージョンと2003バージョンいただけるとありがたいです。 暇なときでいいのでここからご指導、ご教授お願いします。

お世話になっております。 以前こちらでご教授いただいたマクロを登録して 上手い事 動作していて助かっていたのですが 自分が変な所をイジってしまった為に 上手く動作しなくなってしまいました。 どこが おかしいのか、再度ご教授ください。 宜しくお願い致します。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rOne As Range For Each rOne In Target Select Case (rOne.Value) Case 1 Range("Q" & rOne.Row).Select Case 2 Range("Y" & rOne.Row).Select Case 3 Range("AA" & rOne.Row).Select Case Else End Select Next rOne というマクロをいただき、リストで 1～3の数字を選ぶようにしていたのですが そのリストをイジってしまい、 1、あああ 2、いいい 3、ううう というように文字列を挿入した結果「Q」「Y」「AA」列にセルが飛ばなくなってしまいました。 解決方法をご教授ください。 宜しくお願い致します。

いつもお世話になっております。 i = Me!ID　’数値型です sql = "DELETE FROM T_DELETE_ID WHERE DELETE_ID = ""i"";" CurrentDb.Execute (sql) としたところ、ＳＱＬのＷＨＥＲＥ句の条件の指定の仕方が どうもうまくいきません。 sql = "DELETE FROM T_DELETE_ID WHERE DELETE_ID = 101;" CurrentDb.Execute (sql) のようにＷＨＥＲＥ句の値を数字にしたら実行できます。 この場合はどのようにしたらよろしいでしょうか わかる方いらっしゃいましたら、。ご教示の程よろしくお願いいたします。

こんにちわ。 表が完成しました。 しかし、後３つの課題が残されています。 ネットで見ても今ひとつわからなかったので再度質問させていただきました。ブックは全部で３つになります。 →入力フォーム、出力、入力 質問１ アラートは表示されずに上書きもなく保存させたいです。 ・入力フォームで入力された日付で保存。（入力する場所はＣ６でyyyy/m/d/という形です。） ・同じ日付の場合は上書きではなくその日付に何か解るように足せられたものが名前になるようにしたいです。 保存のやり方はわかるのですが上記２つが解りません 質問２ 保存が終わって指定したブックのみ閉じたい。 ・入力データを閉じたいです。 解りづらいかもしれませんがよろしくお願いします。

こんにちわ。 表が完成しました。 しかし、後３つの課題が残されています。 ネットで見ても今ひとつわからなかったので再度質問させていただきました。ブックは全部で３つになります。 →入力フォーム、出力、入力 質問１ アラートは表示されずに上書きもなく保存させたいです。 ・入力フォームで入力された日付で保存。（入力する場所はＣ６でyyyy/m/d/という形です。） ・同じ日付の場合は上書きではなくその日付に何か解るように足せられたものが名前になるようにしたいです。 保存のやり方はわかるのですが上記２つが解りません 質問２ 保存が終わって指定したブックのみ閉じたい。 ・入力データを閉じたいです。 解りづらいかもしれませんがよろしくお願いします。

お世話になっております。 以前こちらでご教授いただいたマクロを登録して 上手い事 動作していて助かっていたのですが 自分が変な所をイジってしまった為に 上手く動作しなくなってしまいました。 どこが おかしいのか、再度ご教授ください。 宜しくお願い致します。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rOne As Range For Each rOne In Target Select Case (rOne.Value) Case 1 Range("Q" & rOne.Row).Select Case 2 Range("Y" & rOne.Row).Select Case 3 Range("AA" & rOne.Row).Select Case Else End Select Next rOne というマクロをいただき、リストで 1～3の数字を選ぶようにしていたのですが そのリストをイジってしまい、 1、あああ 2、いいい 3、ううう というように文字列を挿入した結果「Q」「Y」「AA」列にセルが飛ばなくなってしまいました。 解決方法をご教授ください。 宜しくお願い致します。

こんにちわ。 表が完成しました。 しかし、後３つの課題が残されています。 ネットで見ても今ひとつわからなかったので再度質問させていただきました。ブックは全部で３つになります。 →入力フォーム、出力、入力 質問１ アラートは表示されずに上書きもなく保存させたいです。 ・入力フォームで入力された日付で保存。（入力する場所はＣ６でyyyy/m/d/という形です。） ・同じ日付の場合は上書きではなくその日付に何か解るように足せられたものが名前になるようにしたいです。 保存のやり方はわかるのですが上記２つが解りません 質問２ 保存が終わって指定したブックのみ閉じたい。 ・入力データを閉じたいです。 解りづらいかもしれませんがよろしくお願いします。

こんにちわ。 表が完成しました。 しかし、後３つの課題が残されています。 ネットで見ても今ひとつわからなかったので再度質問させていただきました。ブックは全部で３つになります。 →入力フォーム、出力、入力 質問１ アラートは表示されずに上書きもなく保存させたいです。 ・入力フォームで入力された日付で保存。（入力する場所はＣ６でyyyy/m/d/という形です。） ・同じ日付の場合は上書きではなくその日付に何か解るように足せられたものが名前になるようにしたいです。 保存のやり方はわかるのですが上記２つが解りません 質問２ 保存が終わって指定したブックのみ閉じたい。 ・入力データを閉じたいです。 解りづらいかもしれませんがよろしくお願いします。

こんにちわ。 表が完成しました。 しかし、後３つの課題が残されています。 ネットで見ても今ひとつわからなかったので再度質問させていただきました。ブックは全部で３つになります。 →入力フォーム、出力、入力 質問１ アラートは表示されずに上書きもなく保存させたいです。 ・入力フォームで入力された日付で保存。（入力する場所はＣ６でyyyy/m/d/という形です。） ・同じ日付の場合は上書きではなくその日付に何か解るように足せられたものが名前になるようにしたいです。 保存のやり方はわかるのですが上記２つが解りません 質問２ 保存が終わって指定したブックのみ閉じたい。 ・入力データを閉じたいです。 解りづらいかもしれませんがよろしくお願いします。

お世話になっております。 以前こちらでご教授いただいたマクロを登録して 上手い事 動作していて助かっていたのですが 自分が変な所をイジってしまった為に 上手く動作しなくなってしまいました。 どこが おかしいのか、再度ご教授ください。 宜しくお願い致します。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rOne As Range For Each rOne In Target Select Case (rOne.Value) Case 1 Range("Q" & rOne.Row).Select Case 2 Range("Y" & rOne.Row).Select Case 3 Range("AA" & rOne.Row).Select Case Else End Select Next rOne というマクロをいただき、リストで 1～3の数字を選ぶようにしていたのですが そのリストをイジってしまい、 1、あああ 2、いいい 3、ううう というように文字列を挿入した結果「Q」「Y」「AA」列にセルが飛ばなくなってしまいました。 解決方法をご教授ください。 宜しくお願い致します。

エクセルデータにて 　　　　Ａ　　　　　　Ｂ　　　　　　Ｃ １　　ＡＢＣ　　　　○○○　　　　ＸＹＺ ２　　ＡＢＣ　　　　○○○　　　　ＰＱＲ ３　　ＤＥＦ　　　　×××　　　　ＸＹＺ ４　　ＤＥＦ　　　　×××　　　　ＰＱＲ ５　　ＤＥＦ　　　　×××　　　　ＨＩＪ ＊アルファベット、記号は文字列 において、下記形式にしたい場合はどの様な手法がありますでしょうか？ 　　　　Ａ　　　　　　Ｂ　　　　　　Ｃ １　　ＡＢＣ　　　　○○○　　　　ＸＹＺ　ＰＱＲ　　　 ２　　ＤＥＦ　　　　×××　　　　ＸＹＺ　ＰＱＲ　ＨＩＪ その際、Ｃに表示させる方法は、１）連続形式、２）カンマ区切り、３）別列の追加 が考えられると思いますが、どの形式でも構いません。（理想は２ですが） 初心者質問ですが、宜しくお願いします。

DO I=1,100 WRITE(*,100)I 100 FORMAT(I2) の出力は1行に１～100まで表示されますが５行に分けて1行に１～２０、２行目に２１～３０　のように出力させるにはFORMAT文をどのように変えれば出来ますか？ １行目　　２行目 1 21 . . . . . . 20 30 基本的な質問ですが宜しくお願いします。

vbスクリプトからexcelのVBAを起動したいので、初心者ながら下記のようにコーディングしましたが、excelのVBA;main()が実行できません。 　＜excelのVBA;main()は単独では正常に起動します。＞ vbスクリプトからexcelのVBAの起動の方法を教えて下さい。 そのスクリプトをタスク（元旦）に起動したいです。 ＜vbスクリプト　コーディング＞ dim exlApp On Error Resume Next set exlApp = createobject("Excel.Application") exlApp.visible = true exlApp.Workbooks.Open "C:\年賀状.xls" exlApp.run "Main" If Err Then WScript.Quit End IF If Not(exlApp Is Nothing) Then exlApp.Quit set exlApp = nothing End If

vbスクリプトからexcelのVBAを起動したいので、初心者ながら下記のようにコーディングしましたが、excelのVBA;main()が実行できません。 　＜excelのVBA;main()は単独では正常に起動します。＞ vbスクリプトからexcelのVBAの起動の方法を教えて下さい。 そのスクリプトをタスク（元旦）に起動したいです。 ＜vbスクリプト　コーディング＞ dim exlApp On Error Resume Next set exlApp = createobject("Excel.Application") exlApp.visible = true exlApp.Workbooks.Open "C:\年賀状.xls" exlApp.run "Main" If Err Then WScript.Quit End IF If Not(exlApp Is Nothing) Then exlApp.Quit set exlApp = nothing End If

お世話になっております。 以前こちらでご教授いただいたマクロを登録して 上手い事 動作していて助かっていたのですが 自分が変な所をイジってしまった為に 上手く動作しなくなってしまいました。 どこが おかしいのか、再度ご教授ください。 宜しくお願い致します。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rOne As Range For Each rOne In Target Select Case (rOne.Value) Case 1 Range("Q" & rOne.Row).Select Case 2 Range("Y" & rOne.Row).Select Case 3 Range("AA" & rOne.Row).Select Case Else End Select Next rOne というマクロをいただき、リストで 1～3の数字を選ぶようにしていたのですが そのリストをイジってしまい、 1、あああ 2、いいい 3、ううう というように文字列を挿入した結果「Q」「Y」「AA」列にセルが飛ばなくなってしまいました。 解決方法をご教授ください。 宜しくお願い致します。

お世話になっております。 以前こちらでご教授いただいたマクロを登録して 上手い事 動作していて助かっていたのですが 自分が変な所をイジってしまった為に 上手く動作しなくなってしまいました。 どこが おかしいのか、再度ご教授ください。 宜しくお願い致します。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rOne As Range For Each rOne In Target Select Case (rOne.Value) Case 1 Range("Q" & rOne.Row).Select Case 2 Range("Y" & rOne.Row).Select Case 3 Range("AA" & rOne.Row).Select Case Else End Select Next rOne というマクロをいただき、リストで 1～3の数字を選ぶようにしていたのですが そのリストをイジってしまい、 1、あああ 2、いいい 3、ううう というように文字列を挿入した結果「Q」「Y」「AA」列にセルが飛ばなくなってしまいました。 解決方法をご教授ください。 宜しくお願い致します。