Daiki_PaPaのプロフィール

質問なのですが エクセルで注文品のリストを作りたいのですが たとえばａという商品を入力したら一番最近（場合によれば２回前）注文されたのはいつで、その時の注文数を表示したいのですがどうしたらいいでしょうか説明が下手ですいませんがお願いします

ＥＸＣＥＬのＶＢＡで教えて下さい。 セルＡ１に東京、Ａ２に名古屋、Ａ３に大阪と入力されています。 マクロのボタンにＶＢＡの実行を割当て、ボタンを押す度にＡ１の東京がＣ５に、Ａ２の名古屋がＤ５に、 Ａ３の大阪がＥ５に入力され、更にＡ２又はＡ３のセルが空白でも必ず一行ずつ同じ行に入力されるにはどうしたら良いでしょうか？ 例：入力の流れ 　Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　Ｅ　　　　Ｆ　　　Ｇ・・・・・・ １東京 ２名古屋 ３大阪 ４ ５　　　　　　　　　　東京　　名古屋　大阪 ６　　　　　　　　　　東京　　名古屋　大阪 ７ ８ ・ ・ ・ 　　　　　　　　　　　↓　　　　↓　　　　↓ 　Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　Ｅ　　　　Ｆ　　　Ｇ・・・・・・ １東京 ２ ３大阪 ４ ５　　　　　　　　　　東京　　名古屋　大阪 ６　　　　　　　　　　東京　　名古屋　大阪 ７　　　　　　　　　　東京　　　　　　　　大阪 ８ ９ ・ ・ 　　　　　　　　　　　↓　　　　↓　　　　↓ 　Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　Ｅ　　　　Ｆ　　　Ｇ・・・・・・ １東京 ２名古屋 ３ ４ ５　　　　　　　　　　東京　　名古屋　大阪 ６　　　　　　　　　　東京　　名古屋　大阪 ７　　　　　　　　　　東京　　　　　　　　大阪 ８　　　　　　　　　　東京　　名古屋 ９ ・ ・　　　　　　　　　※ポイント ・　　　　　　　　　　セルＤ７を飛ばしてＤ８に入力される。 　　　　　　　　　　　必ず一行ずつ同じ行に入力する。 　　　　　　　　　　　ＥＸＣＥＬを再起動しても入力セルの下から 　　　　　　　　　　　続いて入力される。

エクセルで予算書を作っていて、明細書の合計が大内訳書にくるようにしているのですが、明細書の金額が違う数字が上がってくるのはなぜでしょうか？？ 再計算ボタンをおしてもダメですが、その部分をダブルクイックすると正確な数字が上がってきます。 どうしてこのような事が起こるのかと、一つ一つダブルクイックして見直していくしか方法は無いのでしょうか？

アクセス２００３で作ってます。 金額で５千円以上はそのまま出てくるように、５千円以下は全部の金額をまとめてレポートに出るようにしたいのですが、そのようなことができる計算式はありますか？ １０／２１　ＰＣソフト　　　￥５０，１００ １０／２２　ＤＶＤボックス　￥８０，９００ ・・・・・ １０／１～１０／３１まで　その他　　￥１００，５００ こんな感じにしたいのですが…。

Excel VBAで罫線を引くマクロを書きたいと思っています。 で、文末のコードを書きました。(というかマクロ記録したものほぼそのもの) これだとある程度動くのですが、内側線が無いような範囲を選択した場合にはエラーになってしまいます。 内側の線を引く際にIF文をかまさなければならないように思うのですが、イマイチわかりません。 この点について教えてください。 また、コードが冗長であるようにも思えます。もう少しスマートな書き方があればあわせて教えてください。 よろしくお願いします。 Sub 枠線基本() ' 周囲 With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With ' 内側 With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With End Sub