ka_na_de の回答履歴

初心者なりに、色々参考にさせてもらいながらエクセル・ＶＢＡで、 顧客データと業者コードに入力した数字や文字列を 顧客Noを入力すると請求書に表示される、というＶＢＡを作ったのですが、顧客データの並び順が表に反映されてしまいます、 （例えば顧客NoがNo5だと請求書10行目から順に表示したいのに、13行目に表示されてしまいます。No4だと12行目、No3だと11行目という風に・・） ws1の、顧客データは、10行目から順に1行ずつ下がって入力したいけど、 ws2の、業者コードの情報は3行目のまま固定して表示したいのです。 こんな場合どうすればいいでしょうか・・？ 説明足りなければ申し訳ありません。。 下に、自分で作ったＶＢＡ張っておきます。↓ 　　Sub 請求書作成() Dim getstr As String Dim msg As String Dim title As String Dim irange As Integer Dim iirange As Integer 　Set ws1 = Worksheets("顧客データ") 　Set ws2 = Worksheets("業者コード") 　Set ws6 = Worksheets("▲請求書▲") msg = "顧客ＮＯ.を入力してください" title = "ＮＯ.入力" getstr = InputBox(msg, title) getstr = UCase(getstr) 　　irange = Int(getstr) + 4 　　iirange = Int(getstr) + 8 　ws6.Range("a4") = ws1.Range("g" & irange) 　ws6.Range("d3") = ws1.Range("j" & irange) EndRow = Cells(ws6.Rows.Count, 8).End(xlUp).Row 　ws6.Range("c" & iirange) = ws1.Range("l" & irange) 　ws6.Range("f" & iirange) = ws1.Range("c" & irange) 　ws6.Range("n" & iirange) = ws1.Range("bf" & irange) 　ws6.Range("v" & iirange) = ws1.Range("dh" & irange) 　ws6.Range("ab" & iirange) = ws1.Range("ac" & irange) 　ws6.Range("aw" & iirange) = ws1.Range("dz" & irange) 　ws6.Range("ah" & iirange) = ws2.Range("l" & irange + 2) End sub

初心者なりに、色々参考にさせてもらいながらエクセル・ＶＢＡで、 顧客データと業者コードに入力した数字や文字列を 顧客Noを入力すると請求書に表示される、というＶＢＡを作ったのですが、顧客データの並び順が表に反映されてしまいます、 （例えば顧客NoがNo5だと請求書10行目から順に表示したいのに、13行目に表示されてしまいます。No4だと12行目、No3だと11行目という風に・・） ws1の、顧客データは、10行目から順に1行ずつ下がって入力したいけど、 ws2の、業者コードの情報は3行目のまま固定して表示したいのです。 こんな場合どうすればいいでしょうか・・？ 説明足りなければ申し訳ありません。。 下に、自分で作ったＶＢＡ張っておきます。↓ 　　Sub 請求書作成() Dim getstr As String Dim msg As String Dim title As String Dim irange As Integer Dim iirange As Integer 　Set ws1 = Worksheets("顧客データ") 　Set ws2 = Worksheets("業者コード") 　Set ws6 = Worksheets("▲請求書▲") msg = "顧客ＮＯ.を入力してください" title = "ＮＯ.入力" getstr = InputBox(msg, title) getstr = UCase(getstr) 　　irange = Int(getstr) + 4 　　iirange = Int(getstr) + 8 　ws6.Range("a4") = ws1.Range("g" & irange) 　ws6.Range("d3") = ws1.Range("j" & irange) EndRow = Cells(ws6.Rows.Count, 8).End(xlUp).Row 　ws6.Range("c" & iirange) = ws1.Range("l" & irange) 　ws6.Range("f" & iirange) = ws1.Range("c" & irange) 　ws6.Range("n" & iirange) = ws1.Range("bf" & irange) 　ws6.Range("v" & iirange) = ws1.Range("dh" & irange) 　ws6.Range("ab" & iirange) = ws1.Range("ac" & irange) 　ws6.Range("aw" & iirange) = ws1.Range("dz" & irange) 　ws6.Range("ah" & iirange) = ws2.Range("l" & irange + 2) End sub

初心者なりに、色々参考にさせてもらいながらエクセル・ＶＢＡで、 顧客データと業者コードに入力した数字や文字列を 顧客Noを入力すると請求書に表示される、というＶＢＡを作ったのですが、顧客データの並び順が表に反映されてしまいます、 （例えば顧客NoがNo5だと請求書10行目から順に表示したいのに、13行目に表示されてしまいます。No4だと12行目、No3だと11行目という風に・・） ws1の、顧客データは、10行目から順に1行ずつ下がって入力したいけど、 ws2の、業者コードの情報は3行目のまま固定して表示したいのです。 こんな場合どうすればいいでしょうか・・？ 説明足りなければ申し訳ありません。。 下に、自分で作ったＶＢＡ張っておきます。↓ 　　Sub 請求書作成() Dim getstr As String Dim msg As String Dim title As String Dim irange As Integer Dim iirange As Integer 　Set ws1 = Worksheets("顧客データ") 　Set ws2 = Worksheets("業者コード") 　Set ws6 = Worksheets("▲請求書▲") msg = "顧客ＮＯ.を入力してください" title = "ＮＯ.入力" getstr = InputBox(msg, title) getstr = UCase(getstr) 　　irange = Int(getstr) + 4 　　iirange = Int(getstr) + 8 　ws6.Range("a4") = ws1.Range("g" & irange) 　ws6.Range("d3") = ws1.Range("j" & irange) EndRow = Cells(ws6.Rows.Count, 8).End(xlUp).Row 　ws6.Range("c" & iirange) = ws1.Range("l" & irange) 　ws6.Range("f" & iirange) = ws1.Range("c" & irange) 　ws6.Range("n" & iirange) = ws1.Range("bf" & irange) 　ws6.Range("v" & iirange) = ws1.Range("dh" & irange) 　ws6.Range("ab" & iirange) = ws1.Range("ac" & irange) 　ws6.Range("aw" & iirange) = ws1.Range("dz" & irange) 　ws6.Range("ah" & iirange) = ws2.Range("l" & irange + 2) End sub

初心者なりに、色々参考にさせてもらいながらエクセル・ＶＢＡで、 顧客データと業者コードに入力した数字や文字列を 顧客Noを入力すると請求書に表示される、というＶＢＡを作ったのですが、顧客データの並び順が表に反映されてしまいます、 （例えば顧客NoがNo5だと請求書10行目から順に表示したいのに、13行目に表示されてしまいます。No4だと12行目、No3だと11行目という風に・・） ws1の、顧客データは、10行目から順に1行ずつ下がって入力したいけど、 ws2の、業者コードの情報は3行目のまま固定して表示したいのです。 こんな場合どうすればいいでしょうか・・？ 説明足りなければ申し訳ありません。。 下に、自分で作ったＶＢＡ張っておきます。↓ 　　Sub 請求書作成() Dim getstr As String Dim msg As String Dim title As String Dim irange As Integer Dim iirange As Integer 　Set ws1 = Worksheets("顧客データ") 　Set ws2 = Worksheets("業者コード") 　Set ws6 = Worksheets("▲請求書▲") msg = "顧客ＮＯ.を入力してください" title = "ＮＯ.入力" getstr = InputBox(msg, title) getstr = UCase(getstr) 　　irange = Int(getstr) + 4 　　iirange = Int(getstr) + 8 　ws6.Range("a4") = ws1.Range("g" & irange) 　ws6.Range("d3") = ws1.Range("j" & irange) EndRow = Cells(ws6.Rows.Count, 8).End(xlUp).Row 　ws6.Range("c" & iirange) = ws1.Range("l" & irange) 　ws6.Range("f" & iirange) = ws1.Range("c" & irange) 　ws6.Range("n" & iirange) = ws1.Range("bf" & irange) 　ws6.Range("v" & iirange) = ws1.Range("dh" & irange) 　ws6.Range("ab" & iirange) = ws1.Range("ac" & irange) 　ws6.Range("aw" & iirange) = ws1.Range("dz" & irange) 　ws6.Range("ah" & iirange) = ws2.Range("l" & irange + 2) End sub

初心者なりに、色々参考にさせてもらいながらエクセル・ＶＢＡで、 顧客データと業者コードに入力した数字や文字列を 顧客Noを入力すると請求書に表示される、というＶＢＡを作ったのですが、顧客データの並び順が表に反映されてしまいます、 （例えば顧客NoがNo5だと請求書10行目から順に表示したいのに、13行目に表示されてしまいます。No4だと12行目、No3だと11行目という風に・・） ws1の、顧客データは、10行目から順に1行ずつ下がって入力したいけど、 ws2の、業者コードの情報は3行目のまま固定して表示したいのです。 こんな場合どうすればいいでしょうか・・？ 説明足りなければ申し訳ありません。。 下に、自分で作ったＶＢＡ張っておきます。↓ 　　Sub 請求書作成() Dim getstr As String Dim msg As String Dim title As String Dim irange As Integer Dim iirange As Integer 　Set ws1 = Worksheets("顧客データ") 　Set ws2 = Worksheets("業者コード") 　Set ws6 = Worksheets("▲請求書▲") msg = "顧客ＮＯ.を入力してください" title = "ＮＯ.入力" getstr = InputBox(msg, title) getstr = UCase(getstr) 　　irange = Int(getstr) + 4 　　iirange = Int(getstr) + 8 　ws6.Range("a4") = ws1.Range("g" & irange) 　ws6.Range("d3") = ws1.Range("j" & irange) EndRow = Cells(ws6.Rows.Count, 8).End(xlUp).Row 　ws6.Range("c" & iirange) = ws1.Range("l" & irange) 　ws6.Range("f" & iirange) = ws1.Range("c" & irange) 　ws6.Range("n" & iirange) = ws1.Range("bf" & irange) 　ws6.Range("v" & iirange) = ws1.Range("dh" & irange) 　ws6.Range("ab" & iirange) = ws1.Range("ac" & irange) 　ws6.Range("aw" & iirange) = ws1.Range("dz" & irange) 　ws6.Range("ah" & iirange) = ws2.Range("l" & irange + 2) End sub

エクセルの質問です。 文字列「Ａ」と「Ｂ」を検索して個数が知りたいのですが、文字列「Ａ,Ｂ」というデータの優先されるのがＡであった場合、Ａ＝1個。Ｂ＝0個とカウントしたいのです。何か良い数式はありませんか？

7/26に下記の質問をしまして、Wendy02さんからＵＲＬを教えてもらい、一時は解決したのですが、 すみません、特定のセル１ケ所に入力し、それを特定のセル同じく１ケ所に表示するにはどのようにするとよいのでしょうか？ ＶＢＡを作ってみましたが、上手く動きません。。。(>_<) どこかが間違っているのだと思うのですが・・・・・・ よろしくお願いします。 ⇒エクセルで、例えばＡ１に123456と入力したら、Ｂ１に それに対応する住所が表示されるようにしたい。。 Excel アドイン: 郵便番号変換ウィザードがあるのは知っていますが、 これを利用しないで、ＩＭＥの郵便番号変換機能を利用して、関数で、あるいはＶＢＡで表示できるようにしたいのですが、可能でしょうか?? （ＩＭＥのプロパティの辞書/学習は「郵便番号辞書」にチェックはついています。為念） ★回答⇒Wendy02さんから↓↓↓ ​http://oshiete1.goo.ne.jp/kotaeru.php3?qid=3191662 ＜作ってみたＶＢＡ＞ Private Sub Worksheet_Change(ByVal Target As Range) 'IMEは、MS-IME に限る Application.ScreenUpdating = False With Range("B7") '入力規則 .Delete .IMEMode = xlIMEModeHiragana 'IME立ち上げ End With Application.EnableEvents = False Range("D7").Select SendKeys Target.Value '番号を入れる SendKeys "{ }" 'スペース変換 SendKeys "{ENTER}" SendKeys "{LEFT}" SendKeys "{DOWN}" settei: Application.ScreenUpdating = True End Sub​

Workbooks.OpenTextメソッドで FieldInfo:=をArray関数のネスト にしているのを見かけますが意味（使い方のイメージ）がわかりません　教えて頂けると助かります

累計処理をするファイルを作りたいと思っています。 １週間前のファイルの累計の表と今週の週計の表をあわせた表を 今週の累計シートに作りたいと思っています。 VBAをくんだのですが、一週間前のファイル名が「第１週.xls」の時は、 うまくいくのですが、「第１週（４月１日～７日）.xls」のようになるとうまくいきません。できれば分かるように日付も入れたいのですが、 どうしたらいいのでしょうか？ 一週間前と今週のファイルは、同じシートの名前がつけてあり、セルの 位置も同じです。（一週間前のファイル名前を変えて今週のファイルを作っています。） 一週間前のファイル名は、今週のファイルにファイル名を取得して、セルに 貼り付けそこから読み込んでいます。 コードは以下のように打っています。 よろしくお願いします。 Sub 累計() Dim name As String Sheets("累計").Select name = Range("AF4").Value　'AF4に一週間前のファイル名をいれています。 y = 4 For x = 5 To 11 For y = 4 To 30 If y = 17 Then y = y + 5 End If Cells(x, y).FormulaR1C1 = "=週計!R[0]C[-1]+[" & name & "]累計!R[0]C[0]" Next Next

エクセルで右クリックで、セルの書式設定をクリックしても、 ダイアログが出ません。原因は何故でしょうか？ ちなみに、メニューバーの書式→セルでもでてきません。 同じシートでも、正常に出てくるところもあるのですが・・・・ バージョンは2002です。 お願いします。

　初めまして、よろしくお願いします。 　分間隔ごとの集計できる関数 例） 　　　　　　A　　　　　　　　　　　B　　　　　　　　　 １　１０時３０分１５秒　　　　　　５ ２　１０時３０分３０秒　　　　　１０ ３　１０時３０分５０秒　　　　　２０ ４　１０時３１分５秒　　　　　　　５ ５　１０時３１分１５秒　　　　　１５ ６　１０時３２分４０秒　　　　　　５ ７　１０時３３分５秒　　　　　　２０ ８　１０時３３分５０秒　　　　　２５ ９　１０時３４分５秒　　　　　　１０ を 　　　　　A　　　　　B １　１０時３０分　　３５ ２　１０時３１分　　２０ ３　１０時３２分　　　５ ４　１０時３３分　　４５ ５　１０時３４分　　１０ 例では１分間隔ですが、５分間隔、１０分間隔と作りたいと思いますので、教えて頂きたく、よろしくお願いします。

Workbooks.OpenTextメソッドで FieldInfo:=をArray関数のネスト にしているのを見かけますが意味（使い方のイメージ）がわかりません　教えて頂けると助かります

　初めまして、よろしくお願いします。 　分間隔ごとの集計できる関数 例） 　　　　　　A　　　　　　　　　　　B　　　　　　　　　 １　１０時３０分１５秒　　　　　　５ ２　１０時３０分３０秒　　　　　１０ ３　１０時３０分５０秒　　　　　２０ ４　１０時３１分５秒　　　　　　　５ ５　１０時３１分１５秒　　　　　１５ ６　１０時３２分４０秒　　　　　　５ ７　１０時３３分５秒　　　　　　２０ ８　１０時３３分５０秒　　　　　２５ ９　１０時３４分５秒　　　　　　１０ を 　　　　　A　　　　　B １　１０時３０分　　３５ ２　１０時３１分　　２０ ３　１０時３２分　　　５ ４　１０時３３分　　４５ ５　１０時３４分　　１０ 例では１分間隔ですが、５分間隔、１０分間隔と作りたいと思いますので、教えて頂きたく、よろしくお願いします。

1つのセルに1つずつ数字を入力行って行ったときに 下の行に重複するものを除いて一列に表示させるには どのような関数式にすれば良いでしょうか？ 具体的にしたいことは 7　16　11　2　3　7　11 7　16　11　2　3 のようになります。 どうぞよろしくお願いします。

シート１に日付、名前、その他の項目があり、シート２に日付を入力すると、シート１から検索された行を全てシート２に表示したいのですが、そのようなことは可能でしょうか？ １行だけだと、わかるのですが、何行もある場合はどのように表示したらいいのかわかりません。 どなたかご教授お願いします。 また、このような処理はエクセルだけでは厳しいのでしょうか？ やはり、マクロを使用したほうがよいのでしょうか？

こんにちは、みなさん!! 【質問】vlookup関数で、検索値がブランクの時に、答えとして 　　　　ブランクを表示する事はできますか？どうしても、エラーが 　　　　表示されてしまいます。エラーではなく、ブランクを表示さ　　　　せたいのですが。 ご存知の方いらっしゃいましたらよろしくお願いします。

エクセルの散布図でxyの数値入力で２本の線を表示させる場合です。 xの値が2本とも共通にならず、互い違いになっているテーブル (片方の数値がある時はもう一方はブランク)では、線を繋いでくれず、 プロットだけです。これをつなぐ方法はありますか？

何度もすみません。 つい先ほども質問させていただいたのですが、質問が少し悪かったので再度投稿させていただきます。 ●シート「あいうえお」のA1セルに、シート「かきくけこ」のA1セルの値を代入したいとします。どのように表現すればよいでしょうか？ （ただし、後でシート「かきくけこ」のA1セルの部分は変数を使いたいので、Cellsオブジェクトで表現するものとします。） Sheet("あいうえお").Select Cells(1,1).Value = *********** 上のような形で考えているのですが、 ***********の部分がわからないです。 経験者の皆様、初歩的な質問で恐縮ではありますが、ご回答よろしくお願いします。

何度もすみません。 つい先ほども質問させていただいたのですが、質問が少し悪かったので再度投稿させていただきます。 ●シート「あいうえお」のA1セルに、シート「かきくけこ」のA1セルの値を代入したいとします。どのように表現すればよいでしょうか？ （ただし、後でシート「かきくけこ」のA1セルの部分は変数を使いたいので、Cellsオブジェクトで表現するものとします。） Sheet("あいうえお").Select Cells(1,1).Value = *********** 上のような形で考えているのですが、 ***********の部分がわからないです。 経験者の皆様、初歩的な質問で恐縮ではありますが、ご回答よろしくお願いします。

1セルに数字を1つずつ空白セルも含んで入力した際に 下の行に空白を含まずに横一列に並ばせるには どのような関数にすれば良いでしょうか？ 具体的にやりたいことは(□は空白セルになります。) 34□56□7 と入力したら下の行に 34567 のように空白セルを除いて 横一列に表示させたいのです。 どうぞよろしくお願いします。