_Kyle の回答履歴

税込単価を計算するのですが・・・ ＬＯＴ×単価×1.05　が常に整数になるように、税込単価を計算し切り上げを行う必要があります。 単価＠2の場合 ＬＯＴ＝1ならば　　税込単価＠3 ＬＯＴ＝10ならば 　税込単価＠2.1 ＬＯＴ＝11ならば　 税込単価＠3 ＬＯＴ＝100ならば　税込単価＠2.1 ＬＯＴ＝101ならば　税込単価＠3 ＬＯＴ＝110ならば　税込単価＠2.1　 といった具合です。 ＬＯＴは1～100,000（整数のみ）で、単価は0.01～1,000,000くらいまで様々です。 計算対象が数十万レコードはあるので、関数で一括して計算できるような方法はありませんか。

いつも御世話になります B列　日付　 例 08/12 C列　顧客IDNo 例 001 ３桁の番号 E列　管理No 例 090812001 B列+C列 という具合にあってE2に下記のような式を入れています。 B2 C2に入力されていないときE2～E2000には000100と表示されています。 =TEXT(B2,"yymmdd")&C2 この場合、B2 C2に入力されたときのみE2に表示されるようにしたい。 上の式をどう変更すればいいかご指導いただけませんか。 よろしく御願いします。

エクセルのマクロでこんなことは可能でしょうか? （１）あるセルに(数字)が入ったとき　　　 (そのセルの列は固定） （２）自動的にそのセルの「行」全体をコピーして 　　　その数字が5なら4行、1なら0行 （入力値より-1行） （３）ひとつ下の行に「コピーしたセルの挿入」で行の追加をする （４）最終行はコピーしない（合計の数字が入ってしまう為） 例 列 A.B.C.D.E 空白.文字列.文字列.1.文字列 空白.文字列.文字列.2.文字列 空白.文字列.文字列.3.文字列 空白.文字列.文字列.2.文字列 空白.文字列.文字列.8.文字列←合計の為コピーしない 　　　　　　　↓ 空白.文字列.文字列.1.文字列 空白.文字列.文字列.2.文字列 空白.文字列.文字列.2.文字列 空白.文字列.文字列.3.文字列 空白.文字列.文字列.3.文字列 空白.文字列.文字列.3.文字列 空白.文字列.文字列.2.文字列 空白.文字列.文字列.2.文字列 空白.文字列.文字列.8.文字列←合計の為、そのまま Ｃの列に3とある場合下に 【3行-(1行) = 2行】を追加コピー 空白.文字列.文字列.3.文字列　の部分。 できれば、コマンドボタンで処理したいと考えております。 お詳しい方、ご教授宜しくお願い致します。

あるエクセルデータにオートフィルターをかけ、 ある特性をもったデータだけを抽出しました。 抽出結果のこのデータの中で、 ある列とある列との掛け算をした合計を出したいのですが、 どなたかご存じないでしょうか・・・・ たとえば、こんな感じです。 １．ディズニーランドの入園者別消費金額のExcelデータがある。 ２．お客の年齢が書いてあるＢ列にオートフィルターをかけ、２０代の若者だけを抽出。 ３．抽出したうえで、彼らが使った金額（Ｃ列）に、何％を飲み物に使ったか（Ｄ列）という係数をかけて、飲み物に使った金額を出し、これを全員分（抽出されているすべての行分）合計し、２０代の若者への飲み物の販売でディズニーランドに入った売上高を算出する。 　という感じです。 早く終わらせなければならない処理ですが、 かなり煮詰まっています。助けてください・・・。

こんにちわ。教えて下さい。 セルの個数を数えたいのですが、下記のいづれかの方法で出来るやり方はありますでしょうか？ ☆条件付き書式で色をつけた空白のみのセルの個数の数え方（列に対応） (1)A1に今日又は今日以前の日付が入って、B1にはA1の日付から2週間たっても、何らかの日付・文字が入らない場合は空白の状態で色がつくようになっています。（文字が入力されたら色は無しになります。2条件が１つのセルに設定されています） 一番ベストなのは、この状態で空白で色のついているセルの個数が数えれば一番いいです。 もし、上記で駄目な場合、 ☆C1に別の数式で、B1が空白かそうでないかで、「FALSE」「TRUE」が表示されるように設定して、その状態で「FALSE」の個数を数えるっていうやり方まではわかるのですが、A,B,C列とも、入力していけば行が増えていくので、先にC列に数式をコピーしておくと、A列に日付が入力されていなくても、「FALSE」が表示されます。A列に日付が入力されている行での「FALSE」の数を数えるという方法はありますか？ 説明が下手ですみません。。。 つまり、自分がない知恵で思った、2つの方法のどちらかででも、数える方法があれば教えて下さい。もちろん、もっといい方法があれば幸いです。

具体的な例を教えて下さい。 でも個人やどの質問に対する回答なのかがわからないように お願いします。 回答する際の参考にしたいと思います。 ※なお、こんな質問やめてほしいという回答は ご遠慮くださいますようお願い申し上げます。

「風」と「タケカンムリに巻」と言う漢字熟語って何と読むのでしょうか？また、その意味を教えてください。「風　」と入力しても見えないようなので、普通の漢字ではないようです。

エクセルのマクロでweb上のデータを取り込みたいのですがループの方法がわかりません。 気象庁から、ある点(アメダス設置場所)の2009年1月1日～8月1日までの風速データを繰り返しとり、それをアメダスの設置分だけ同様に繰り返し抽出したいのですが素人のため変数の置き方がわかりません。 With ActiveSheet.QueryTables.Add(Connection:= _ URL;http://www.data…&block_no=0001&…&year=2009&month=1&day=1&elm=minutes&view=" これの &block_no=0001&　(アメダス設置場所0002～1600くらいまで変化)と、 &year=2009&month=1&day=1&　(日にち)　の部分を変数にしたいです。 Dateなどを使えば下のループはできるのでしょうか？ ちなみに環境は windows XP(IE7) Excel2007です。 一応マクロの記録からループさせたいところをすべて載せておきます。 よろしくお願いします。 Sub Macro1() ' ' Macro1 Macro ' ' With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.data.jma.go.jp/obd/stats/etrn/view/10min_a1.php?prec_no=11&prec_ch=%8F%40%92J%8Ex%92%A1&block_no=0001&block_ch=%8F%40%92J%96%A6&year=2009&month=1&day=1&elm=minutes&view=" _ , Destination:=Range("$A$1")) .Name = _ "10min_a1.php?prec_no=11&prec_ch=%8F%40%92J%8Ex%92%A1&block_no=0001&block_ch=%8F%40%92J%96%A6&year=2009&month=1&day=1&elm=minutes&view=" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "3" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With Range("A2:C148").Select Selection.Delete Shift:=xlToLeft Range("B2:E148").Select Selection.Delete Shift:=xlToLeft ActiveWindow.SmallScroll Down:=135 Range("A149").Select End Sub

エクセルのマクロでweb上のデータを取り込みたいのですがループの方法がわかりません。 気象庁から、ある点(アメダス設置場所)の2009年1月1日～8月1日までの風速データを繰り返しとり、それをアメダスの設置分だけ同様に繰り返し抽出したいのですが素人のため変数の置き方がわかりません。 With ActiveSheet.QueryTables.Add(Connection:= _ URL;http://www.data…&block_no=0001&…&year=2009&month=1&day=1&elm=minutes&view=" これの &block_no=0001&　(アメダス設置場所0002～1600くらいまで変化)と、 &year=2009&month=1&day=1&　(日にち)　の部分を変数にしたいです。 Dateなどを使えば下のループはできるのでしょうか？ ちなみに環境は windows XP(IE7) Excel2007です。 一応マクロの記録からループさせたいところをすべて載せておきます。 よろしくお願いします。 Sub Macro1() ' ' Macro1 Macro ' ' With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.data.jma.go.jp/obd/stats/etrn/view/10min_a1.php?prec_no=11&prec_ch=%8F%40%92J%8Ex%92%A1&block_no=0001&block_ch=%8F%40%92J%96%A6&year=2009&month=1&day=1&elm=minutes&view=" _ , Destination:=Range("$A$1")) .Name = _ "10min_a1.php?prec_no=11&prec_ch=%8F%40%92J%8Ex%92%A1&block_no=0001&block_ch=%8F%40%92J%96%A6&year=2009&month=1&day=1&elm=minutes&view=" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "3" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With Range("A2:C148").Select Selection.Delete Shift:=xlToLeft Range("B2:E148").Select Selection.Delete Shift:=xlToLeft ActiveWindow.SmallScroll Down:=135 Range("A149").Select End Sub

エクセルのマクロでweb上のデータを取り込みたいのですがループの方法がわかりません。 気象庁から、ある点(アメダス設置場所)の2009年1月1日～8月1日までの風速データを繰り返しとり、それをアメダスの設置分だけ同様に繰り返し抽出したいのですが素人のため変数の置き方がわかりません。 With ActiveSheet.QueryTables.Add(Connection:= _ URL;http://www.data…&block_no=0001&…&year=2009&month=1&day=1&elm=minutes&view=" これの &block_no=0001&　(アメダス設置場所0002～1600くらいまで変化)と、 &year=2009&month=1&day=1&　(日にち)　の部分を変数にしたいです。 Dateなどを使えば下のループはできるのでしょうか？ ちなみに環境は windows XP(IE7) Excel2007です。 一応マクロの記録からループさせたいところをすべて載せておきます。 よろしくお願いします。 Sub Macro1() ' ' Macro1 Macro ' ' With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.data.jma.go.jp/obd/stats/etrn/view/10min_a1.php?prec_no=11&prec_ch=%8F%40%92J%8Ex%92%A1&block_no=0001&block_ch=%8F%40%92J%96%A6&year=2009&month=1&day=1&elm=minutes&view=" _ , Destination:=Range("$A$1")) .Name = _ "10min_a1.php?prec_no=11&prec_ch=%8F%40%92J%8Ex%92%A1&block_no=0001&block_ch=%8F%40%92J%96%A6&year=2009&month=1&day=1&elm=minutes&view=" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "3" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With Range("A2:C148").Select Selection.Delete Shift:=xlToLeft Range("B2:E148").Select Selection.Delete Shift:=xlToLeft ActiveWindow.SmallScroll Down:=135 Range("A149").Select End Sub

よろしくおねがいします。 excel2003 または　excel2007 です。 数値を決まった文字列であらわしたいのです。できれば　VBA　を使わずに。 たとえば　１・・・あ　２・・・い　３・・・う　などとして　 １２３(数値）を　あいう(文字列）で表示したいのです。 数値の桁数は最高で７桁です。 よろしくおねがいします。 　

コード_コード2_店名・・・・・ ３０_５０_・・・・・ ４０_２５_・・・・・ エクセルで右揃え_中央揃えが効かない、フィールドがあるのですが なぜでしょうか？ 上の表で見ると30_50_40_25の部分のみ効きません。 他のフィールドでは効きます。 さらに30_50_40_25のフィールドでも文字に関しては効きます。 理由が良く分からないのですが、バグでしょか？

Ｏｆｆｉｃｅ２００７です。エクセルで生年月日のデーターが２００件ほどがあります。データーは「1945/11/3」の様な西暦表示形式のデーターです。このデーターから特定の誕生月のみをフィルターにかけて抽出表示したいのですが、うまくいきません。どのように抽出条件を設定すれば特定の誕生月が抽出できるのでしょうか？どなたか教えて下さい。よろしくお願いいたします。

Ｏｆｆｉｃｅ２００７です。エクセルで生年月日のデーターが２００件ほどがあります。データーは「1945/11/3」の様な西暦表示形式のデーターです。このデーターから特定の誕生月のみをフィルターにかけて抽出表示したいのですが、うまくいきません。どのように抽出条件を設定すれば特定の誕生月が抽出できるのでしょうか？どなたか教えて下さい。よろしくお願いいたします。

初心者です。どうか助けてください！ 　　A　　　B　　　C　　　　　　　　　　・・　L　　　　　　 1　名前　単価　　1日の売り上げ　　　・・・10日の売り上げ 2　ああ　　200　　2 3　いい　　100　　1 4　（空白）　　 5　ええ　　150　　4　 ―　―　―　― 6　（日々売上）　1100　・・・　　　　　　　　　　 というような表を作りたいのですが（A、Bは他のシートからVLOOKUPで飛ばしています。）うまくいきません。 びっちりと詰まった表であればSUMPRODUCTでOKのようですが、どうしてもうまくいかないのです。どうしても空白の行ができてしまうので・・・ どうしたらうまくいくのでしょうか？？

このサイトをよく利用させていただいております。特にOffice系ソフトカテゴリーをよく見ます。 OKWebへのお願いに近い質問なのですが、VBAコードを投稿すると、質問・回答を問わず、コード内のインテンドがすべて綺麗さっぱり消滅してしまいます。 非常に見づらくて困ります。 そのため、わざわざインテンドの代わりにスペースキーを何度も打って代用される方もよく見かけます。 （わたしはそこまでは出来ませんが） 不思議なのは、自分が書いた回答にお礼が付いたときに、OKWebからメールが届きますが、その際メールに記載されたわたしの回答にはちゃんとインテンドされているのです！？ 不思議に思い、OKWeb画面のソースを表示してみると、わたしはHTMLには疎いのでよくわかりませんがどうもインテンドされているように見えます。 質問は 1.画面ではインテンドが消え、コピペしてもインテンドはされないのに、なぜメールでの通知はインテンドされているのでしょうか？ 2.OKWeb画面からインテンド付きの状態でコピペする方法はないでしょうか？ 3.なぜOKWebさんは、VBAコードからインテンドを削除するのでしょうか？ 4.OKWebさんにVBAコードからインテンドを消さないでとお願いするにはどうしたらよいでしょうか？

まずは下のサンプルデータを見ながら本文を読んでください。 Excelの関数（lookup か vlookup） か VBAを利用して、 Sheet2のセルA列にデータを自動的に表示したい と思っています。 Sheet2のセルA列に表示したいデータは、Sheet1のセルAの情報です。 例えば、Sheet2のセルB1が「静岡県」の場合は、「営業２部」という文字が Sheet2のセルA1に表示されるようにしたいと思っています。 つまり、Sheet1のセルB が Sheet2のセルB の内容と 部分一致した場合に、Sheet2のセルA列に 該当データ（Sheet1のセルA）を 抽出して表示するということをやりたいと考えています。 どうぞよろしくお願い致します。 サンプルデータ ◆Sheet1 参照元となる表 ___|___セルA___|________セルB ---------------------------- 1 | 営業１部 | 東京都千代田区 ---------------------------- 2 | 営業２部 | 静岡県 ---------------------------- 3 | 営業２部 | 山梨県 ---------------------------- 4 | 営業３部 | 東京都渋谷区 ---------------------------- 5 | 流通１部 | 神奈川県 ---------------------------- ◆Sheet2 データを埋めたい表 ___|____セルA_____|_______セルB ---------------------------- 1 |________________| 静岡県富士市大淵 24 ---------------------------- 2 |________________| 東京都千代田区丸の内1-8 ---------------------------- 3 |________________| 大阪府大阪市中央区南船場１―１５ ---------------------------- 4 |________________| 神奈川県横浜市 ---------------------------- 5 |________________| ※以下 セルBには500件ほどの都道府県データあり。 6 7 ・ ・

まずは下のサンプルデータを見ながら本文を読んでください。 Excelの関数（lookup か vlookup） か VBAを利用して、 Sheet2のセルA列にデータを自動的に表示したい と思っています。 Sheet2のセルA列に表示したいデータは、Sheet1のセルAの情報です。 例えば、Sheet2のセルB1が「静岡県」の場合は、「営業２部」という文字が Sheet2のセルA1に表示されるようにしたいと思っています。 つまり、Sheet1のセルB が Sheet2のセルB の内容と 部分一致した場合に、Sheet2のセルA列に 該当データ（Sheet1のセルA）を 抽出して表示するということをやりたいと考えています。 どうぞよろしくお願い致します。 サンプルデータ ◆Sheet1 参照元となる表 ___|___セルA___|________セルB ---------------------------- 1 | 営業１部 | 東京都千代田区 ---------------------------- 2 | 営業２部 | 静岡県 ---------------------------- 3 | 営業２部 | 山梨県 ---------------------------- 4 | 営業３部 | 東京都渋谷区 ---------------------------- 5 | 流通１部 | 神奈川県 ---------------------------- ◆Sheet2 データを埋めたい表 ___|____セルA_____|_______セルB ---------------------------- 1 |________________| 静岡県富士市大淵 24 ---------------------------- 2 |________________| 東京都千代田区丸の内1-8 ---------------------------- 3 |________________| 大阪府大阪市中央区南船場１―１５ ---------------------------- 4 |________________| 神奈川県横浜市 ---------------------------- 5 |________________| ※以下 セルBには500件ほどの都道府県データあり。 6 7 ・ ・

ExcelのVBAを使って 縦20のセル、横30のセルの枠を作り 枠内で●が動き、枠に当たると跳ね返りの 繰り返しプログラムが作りたいんですが… プログラムはここまでできています↓ Sub 試作品() Dim hara As Integer, kyo As Integer Dim X As Integer, Y As Integer Dim V As String Dim hyouji As String hyouji = "●" 'hyoujiという変数に●を入れる X = 1 'Xに１を入れる Y = 1 V = "" V = "上" '------------------------------------------ Do Cells(X, Y).Value = hyouji 'XとYの位置にあるセルに●を表示 For hara = 0 To 10000 ' For kyo = 0 To 1000 'タイマーの役割 Next ' Next ' Cells(X, Y).Value = "" 'XとYの位置にあるセルに●を消す For hara = 0 To 10000 ' For kyo = 0 To 1000 'タイマーの役割 Next ' Next ' If V = "上" Then '上から来た●なら X = X + 1 'Xに１を足す Y = Y + 1 Else: V = "下" '下から来た●なら X = X - 1 'Xから１を引く Y = Y - 1 End If If X = 20 Then 'Xが20になったら V = "下" 'ループ外で定義した"上"を下に反転させる ElseIf X = 1 Then 'Xが１になったら V = "上" '下を上に反転 End If If Y = 30 Then V = "下" ElseIf Y = 1 Then V = "上" End If Loop '------------------------------------------ End Sub できたらこのプログラムに追加して 作成したいのですが… この際できれば嬉しいので これ以外のプログラムがあれば 教えて欲しいです。 VBA得意な方、お願いします;;

WindowsXP　Excel2007です 恥ずかしながら自分ではダウンロードしたつもりはないのですが Excelの市外局番リストfixed_2.xlsというブックがExcel2007の最近使用したドキュメントのリストにありました。 そのブックを削除したいのですが保存場所が判りません。 そのブックを開き「名前を付けて保存」を押すとその文書を保存した場所が保存先として通常は、表示され、そこにそのブック名が表示されると思うのですが、当該ブックは、保存先にマイドキュメントが表示されるのですがそこにはありません。ファイル名の前にコピーと表示されるのでfixed_2.xlsというファイルがマイドキュメントの中にあるだろうとはおもうのですが、どのように探したらいいのか判りません。探す方法をご教示ください。 長々と判り難いかもしれませんがよろしくお願いします。