hallo-2007 の回答履歴

初心者なのですみません。 左側のリストボックス、右側のテキストボックス、削除ボタン。 現在はリストボックスから選んで削除しているのですが あまりにも数が多い時は探すのに時間がかかってしまって。 右のテキストボックスに入力、リストボックス表示 、選んで削除。（通常は全リスト表示） 宜しくお願いいたします。

エクセルVBAで納期管理を目的として　受注状況の確認や追加受注の入力をしたいと思っています 入力フォームをつくり　その中に「年月日・品番」などを入力（選択式で）できるようにしたいと思っています まず最初にその入力フォームの中に「納期」というタイトルのラベルをつくり　テキストボックスに年月日の数字を入力するのではなく　ドロップダウンリストで選択式にしたいのですが（コンボボックス？）　リストに呼び出すために年月日にあたる数字を他のシートに用意するのですか？ いろいろサイトをみてみたんですがよくわかりませんでした よろしくお願いいたします

エクセルで在庫管理表と、出荷伝票を作りたいのですが添付画像のように 在庫管理表シートに出荷依頼のあった商品に出荷数量を入力したら、その商品名やコード、出荷数を別シートの出荷伝票にのセルに自動で入力されるようにしたいのですが、可能ですか？ お知恵のある方ご伝授ください。

D9とE9は　14時という時間帯は最大1時間＝60分という意味です。 C9には、14時の合計時間が書いてあります。 本日の16時に予定しているの時間帯の「デッサン」と「映画鑑賞は」合計すると1:30と、1:00を越えたので D6とD7は×が表示されました。 （１）A列に　「本日」かつM列の時間帯の合計が60分を越えたらD列は「×」を表示したい （２）A列に　「本日」かつM列の時間帯の合計が60分を越えなかったらD列は「○」を表示したい （３）A列に　「本日」ではないものであればD列は「－」を表示したい －－－－－－－－－－－－－－－－－－－－－－－－－ 質問１　 本日と書いてある　合計時間だけを表示するには、C9にはどんな数式が必要ですか？ 質問２ （１）（２）（３）の３つをすべて対応するために D2にはどんな数式が必要ですか？

以下のように配列を設定し、A(ix)の配列にdo untilでそれぞれに文字列を入れようとしておりますが、うまくいきません。 dountil　の一回目では代入ができているようですが、２回目ができずに止まってしまいます。 おかしな点がありましたらご指摘いただけませんでしょうか。 Dim A() As String Dim ix As Long ix = 0 ReDim Preserve A(ix) Dim tate As Long tate = 1 Do Until tate = 8 A(ix) = ws.Cells(tate, 1) tate = tate + 1 ix = ix + 1 Loop Doの初回A(0)に文字列は入りますが、 Doの二回目以降A(1)に文字列を入れる作業ができずに止まってしまいます。 よろしくお願いします。

ただいま、新築検討中でわからないことだらけの中、候補が２つでてきたのですが迷っています。 皆様ならどちらにするか意見がほしいです。 A、60坪の長方形の土地。角地だが横に水路あり。大型分譲地だが分譲地の横に墓あり。希望の土地は墓からまだ離れている。子供がいるのですが、学区の治安があまりよくないらしいです。日当たりまだいい。駅からだいぶ遠い。建築条件付きで見積もりを出してもらった際、希望より400万程オーバー。仕様変更や値引きで希望予算に近づけるみたいだが、担当がいまいち合わない。 B、43坪の角地だが角が丸く変形？五角形のような...説明下手ですいません。小さい分譲地だが 周りは新しい家ばかり。日当たり良。 駅から近くはないが20分程。建築条件付きで希望予算より100万はオーバーするかもしれないとのこと。担当良。学区は希望の学区。 大ざっぱで申し訳ないですがどちらも建築条件付きで別会社のため悩んでいます。 ちなみにBのほうが土地は狭いですが土地価格はAより250万程高いです。 皆様でしたらどちらをどういう理由で選びますか？ 選ばない意見でもかまいません。 田舎なので50～60坪が平均です。 よろしくお願いします。

次のようなマクロを作ったのですがエラーにはならないのですが、うまく働きません。 Else if　の行が悪いと思うのですがどうなおせばいいのかわかりません。 どなたか教えてください、よろしくお願いします。 Sub 判定() Application.ScreenUpdating = False '処理中の表示をさせない lastrow = (Range("B4").End(xlDown).Row) 'B列の一番最後の行番号を代入 length(1) = Range("S2") For i = length(1) + 4 + 1 To lastrow If Cells(i - 1, 8) = "" And Cells(i - 1, 15) = "GC3" Or Cells(i - 1, 15) = "GC2" Then Cells(i, 8) = Cells(i, 2) * Cells(1, 5) + Cells(1, 7) ElseIf Cells(i - 1, 8) <> "" And Cells(i - 1, 15) = "DC3" Or Cells(i - 1, 15) = "DC2" Or Cells(i - 1, 15) = "DC1" Then Cells(i, 9) = Cells(i, 2) * Cells(1, 5) - Cells(1, 7) Else: Cells(i, 8) = Cells(i - 1, 8) End If 　　　　Next End Sub

次のようなマクロを作ったのですがエラーにはならないのですが、うまく働きません。 Else if　の行が悪いと思うのですがどうなおせばいいのかわかりません。 どなたか教えてください、よろしくお願いします。 Sub 判定() Application.ScreenUpdating = False '処理中の表示をさせない lastrow = (Range("B4").End(xlDown).Row) 'B列の一番最後の行番号を代入 length(1) = Range("S2") For i = length(1) + 4 + 1 To lastrow If Cells(i - 1, 8) = "" And Cells(i - 1, 15) = "GC3" Or Cells(i - 1, 15) = "GC2" Then Cells(i, 8) = Cells(i, 2) * Cells(1, 5) + Cells(1, 7) ElseIf Cells(i - 1, 8) <> "" And Cells(i - 1, 15) = "DC3" Or Cells(i - 1, 15) = "DC2" Or Cells(i - 1, 15) = "DC1" Then Cells(i, 9) = Cells(i, 2) * Cells(1, 5) - Cells(1, 7) Else: Cells(i, 8) = Cells(i - 1, 8) End If 　　　　Next End Sub

エクセルの計算式（関数）について教えてください。 海外の転送会社をよく利用するのですが、1kg～1.9kgが1500円、2kg～2.9kgが1700円など重さの範囲によって送料が異なります。エクセルで、重さを入力したら、すぐに料金が出てくるように設定したいのですが、どのようにすればいいでしょうか？海外の表示はlbでこの転送会社はkgで表示しているので、そのあたりも分かりにくく、一気にエクセルで計算したいと考えています。 理想的な形は、「A」「B」「C」の３つのセルを使うとしたら、例えば「A」のセルにポンド（lb）の重さを自分で入力したら、自動的に「B」のセルにkgに換算された重さと、「C」に転送会社の料金が表示されるようにしたいです。 難しいのは1kg～1.9kgなど一定の範囲で料金が固定されている点で、その数式をどのように組み込めばいいか分かりません。ポンドをキログラムに換える数式は分かるのですが、単純に=A1*0.45359237*1500などとしてしまうと、（本来は1kg～1.9kgなど一定の範囲で料金が同じなのに）例えば1.2kgと1.9kgでは異なった料金が出てしまいます。 ややこしい質問で申し訳ありませんが、もし的確な数式がお分かりでしたら、なにとぞよろしくお願いいたします。

Excelで、以下のような設定をしたいと思うのですが方法が分かりません。 詳しい方、教えてください。 (1)Enterキーを押すと1が入力され、下のセルに移動。 (2)＋キーを押すと0が入力され、下のセルに移動。 (3)Enterと＋以外が入力されたらメッセージ表示で作業停止。 という設定をしたいと思っています。 Excelのバージョンは2003です。よろしくお願いします。

VBA初心者です。 アプリケーション定義エラーまたはオブジェクト定義エラーが出ました。 原因を教えてください。 A=2800 B=3300 委託料＝AとBの合計の５％ Cell(5,j)のセルにAとBの合計の５%の数値"305"を入力したいです。 Sub syouhinbubetu() Dim Sheetobj As Worksheet Dim A As Integer Dim B As Integer Dim 委託料 As Integer Set Sheetobj = ThisWorkbook.Worksheets("Sheet1") With Sheetobj A = .Cells(3, j) B = .Cells(4, j) 委託料 = .Cells(5, j) For j = 3 To 6 .Cells(5, j) = (A + B) * 0.05 Next j End With End Sub 定義は、きちんと整数の定義にしているはずなのですが、どうしてでしょうか？ それから、もう一つ教えてください。 C/Dの値をセルに入れるのは次の式でよいと思いますが、 .Cells(7,j)=C/D その数値が少数になる場合四捨五入をした値（小数点以下すべて切り捨て）を入れる場合はどのような式になりますか？ 初心者過ぎて申し訳ありません。 VBAの基本の本で勉強したのですが、それを応用して実践する場合にどのようなプログラムになるのかが分かりません。 良い本があれば紹介していただけないでしょうか。 私が勉強した本は、「世界で一番簡単なExcel VBAのe本」です。 分かりやすい応用編の本があれば教えてください。 たくさんの質問で申し訳ありませんが、よろしくお願いいたします。

マクロ初心者……どころか今日初めて触った者です。 なんだか楽しかったので、エクセルでスペルクイズを作ってみようかなーといじっています。(｀・ω・´) が、何も知らないので何も進みません(汗) スペルを打って、 合ってたら黒で「OK!」 間違ってたら赤で「Miss!」と表示させたいです。 それから、間違ってたらMiss!の右側のセルに正しい答えを表示したいです。 今判るのは、例えばdoctorが答えのときだと↓だけです…… If Range("c4").Value = "doctor" Then Range("d4").Value = "OK!" Else Range("d4").Value = "Miss!" End If Miss!の字を赤くする方法と e4セルに正答を表示させる方法を教えてください。 どこに何と書けばいいでしょうか？ 入門者すぎる質問ですみません！ どなたかよろしくお願いいたしますm(_ _)m

昨日、プログラミング言語について質問させて頂きました。その結果、basic、Ruby, JavaScript, Python, Perl, PHP、C,C#,を勧められました。 しかしどれから勉強すればいいかわからず、また質問しようという考えにたどり着きました。 この中の言語ではどれがお勧めでしょうか？ また、basicはVB、VBAなどがあり、どれのことを指しているのかが理解出来ないのでそのあたりも教えてくださると嬉しいです。

エクセル初級者です。 以下のような表があるとします。 A ------B------C--------D--------E--------F--------G--------H ..... 1　　　　　name　　birth　　　 2012/1/1　2012/2/1　2012/3/1　2012/4/1　2012/5/1 ..... 2　　　山田　　1965/5/18 3　　　鈴木　　1988/3/10 この、D1・E1・F1・H1・・・以降セルについてですが ユーザー設定の書式で【m"月"】として【○月】と表示しています。 色をつけたいのは、誕生月に該当するセルです。 山田さんの場合、H2に 鈴木さんの場合、F3に色をつけたいのです。 何か補助となるセルも作るべきなのでしょうか？ 全くお手上げです。 どうぞ、どなたかお助けくださいませ。

A1～Ａ20のセルに入力データが一切無い場合に、入力を促すメッセージを表示させるマクロを作りましたが,「実行時エラー13　　型が一致しません」のエラー表示が出ます。 デバックすると下記マクロの「If Range("A1:A20").Value = "" Then」の部分でストップしていました。 いろいろとやってみましたが、うまくゆきません。 If Range("A1:A20").Value = "" Then MsgBox ("参加マークーを入力ください") Exit Sub End If 記述上の誤りがあるようですので、ご教示いただけましたら幸いです。

はじめまして。 私の質問を読んで下さりありがとうございます。 上司にエクセルで少々複雑な？仕組みを作るように指示されたのですが、私自身はエクセルに詳しくはなく、社内にも詳しい人がいなくて困っています。 「Excel VBA　パーフェクトマスター」という本を購入して勉強を始めたのですが、あまりに情報が多すぎてどこを参考にすればよいのかすら分かりません・・・。 来週末までに作らないといけないため休日返上でお仕事しながら勉強していますが、さっぱり分からなくて泣きそうです・・。 エクセルVBAに詳しくて親切な方がいらっしゃいましたら、無理のない範囲で構いませんので、どうか教えて頂けないでしょうか。宜しくお願い致します。 前置きが長くなってしまいましたが、具体的には以下のような処理はどうすれば良いのかが分かりません。 (1)　「Sheet1」のセル[A2]をダブルクリックすると「Sheet3」が表示される。 (2)　「Sheet3」のセル[D5]をダブルクリックすると「Sheet2」のセル[C2]の値(文字か数字)が「Sheet1」のセル[A2]と「Sheet4」のセル[B5]に表示され、更に「Sheet5」のセル[F10]の数値が「Sheet1」のセル[N5]に表示される。 (3)　上記の一連の処理が完了すると「Sheet1」が表示される。(「Sheet1の画面に戻る) 以上のような処理を複数組み合わせればできそうなのですが、このような事はエクセルVBAで出来るでしょうか？　(私には出来るのか出来ないのかすら分かりません。命令した上司も分かってないと思います。) 出来るか出来ないかだけでも結構なので、どうか教えてください。 もし可能なら、具体的なアドバイスを頂けると、とても助かります。 どうか宜しくお願い致します。

windows7でMS Excel2010を使用しています。 A列に商品名、B列にその日の評価(数字)が記入されているファイルが２つあります。 例えば以下のようになっています ファイル1 商品1 120 商品2 300 商品4 40 商品5 100 ファイル2 商品1 200 商品3 100 商品4 60 商品6 300 これを一つのファイルとして以下のようにまとめたいのですが、簡単にやる方法はありますか？ 商品名 ファイル1 ファイル2 商品1 120 200 商品2 300 0 商品3 0 100 商品4 40 60 商品5 100 0 商品6 0 300

現在仕事でExcelを利用しているのですが、退職した前任者から業務ツールとしてExcelのVBAツールを引き継ぎました。 これに改造を加えたいのですが、フォームにロックがかかっているため、修正ができません。パスワードの入力を求められるわけでもないのですが、書店でＶＢＡの本を見てもこれに関しては何も記載されていません。解除の仕方はあるのでしょうか？

マクロで任意の複数セルにデータを一度に入力するにはどうしたら、 いいでしょうか？ 例えば、ボタンをクリックするとA1とA2にパソコン 10万 といったデータを入力したいです。 マクロ初心者ですので、よろしくお願いします。

vba初心者です。 Application.Dialogs(xlDialogOpen).Showで選択したテキストファイル（***.txt)をテキストファイルウィザードで、タブ、カンマ、スペース区切りで、エクセルファイルに取り込むマクロを組みたいのですが？ 何度やってもうまくいきません。 ご教示願えないでしょうか！ eｘcel2002を使用してます。 よろしくお願いします。