keithin の回答履歴

myRow=100 Sheets(strSheetsName1).Rows("1:" & myRow).Copy Sheets(strSheetsName2).Rows(myRow + 1).Insert Shift:=xlDown コピーして、挿入しつつ貼り付け、という作業を繰り返してるのですが、 このマクロを実行している間に、ブラウザ等でコピー貼り付けができなくなってしまいます。 ブラウザ上でコピーしたつもりが、ｖｂａでコピーした情報が、張り付いてしまいます。 なので、コピペではない方法で、行の情報を取得し貼り付け値のですが 何かいい方法はありますか？

添付画像のような入力データがsheet１にあります。C1セルに数値を入力すると、該当する「no」カラムを読み込んで、その行のデータをシートを変えて印刷用のデータを作成するようになっています。 印刷用のデータをC1セルの数値を１回ごとに変え、シートを移動してからｃｔｒｌ＋ｐで印刷していましたが いちいち数値を入力するのが面倒になりました。 そこで数値を範囲で指定したいのです。 例えば、１から１０という指定の仕方で自動プリントアウトする設定はできないかなと考えております。 こういうことは可能でしょうか よろしくお願い致します。

ポリゴン機能を使わずにポリラインで正五角形と正六角形を作成したいのです。 正五角形は内角１０８度をいれたら完成できると思っていたのですが、角度についての 考え方が分かりません。 まず底辺に線分を引き、右から上に７２度、そして右から左上に１４４度という 考え方が理解できないのです。。。 ご教示いただけませんでしょうか。 よろしくお願いいたします。

Excelでセルの内容をコピーしただけなのに×で終了しようとすると「保存するかどうか」の表示がされます。 何も変更してないので煩わしくてしかたありません。 こういう場合に表示しないようにできますか？ もちろん勝手に保存して終了されるのは困ります。

膨大なデータがあるので10秒間隔で間引く方法はないでしょうか。

A列に20桁の数字ばかりの「文字列」が入ったセルが1000行ほどあります。 A列の書式は文字列に設定してあります。 特定のセルの中身が重複してないことを確認しようと。 B1=COUNTIF(A:A,A1) のようにしたところ、うまく動きませんでした。 調査したところセル先頭から15文字までしか認識してくれません。 文字列扱いして欲しいのですが、数字ばかりなのが気に入らないようです。 数字だけのまま20桁認識させる方法は無いものでしょうか？

いつもお世話になります。 WINDOWS7 EXCELL2010 です。 参照図で説明します。 C1 =DATE(D1,E1,1) E1 に　9　を入力すると、 A列の中から9月に該当するIDを D2 : D6 のように抽出したいのですが どんな数式なのか御指導を仰ぎたいです。 よろしくお願いします。 参考に 下記で月毎の条件がないまでなんとかわかっているのですが B列　日付 I2 =IF(COUNTIF($B$2:B2,B2)=1,ROW(),"") L2 =IF(COUNT($I$1:$I$20)<ROW($A1),"",INDEX($B$1:$B$20,SMALL($I$1:$I$20,ROW($A1))))

エクセルのデフォルトのフォントを設定したいのですが、どうすればよいでしょうか? 一番左上のセルで全セルを選択した後にフォントを変えるとその時は変わるのですが、 そのあとに入力したデータが設定したフォントになってくれません。

タイトルで少しわかりにくいかもしれませんが、内容としてはエクセルで特定のセルに数字を入力し、印刷すると自動的に数字が変わる方法があるか探しています。 要は特定のセルに例えば「１」と入力してあるとして、１０枚印刷するとページ番号みたいに「１～１０」の数字がそれぞれについていると言うことなんですが、 自分で調べたとき、下のリンクを見つけました。これでいけるのでしょうか？何度か試して上手くいかず、他の方法を探してみたのですが中々見つからず…。もしわかる方がいれば教えてください。 http://www2.odn.ne.jp/excel/waza/print.html#SEC12

結構な量のデータベースが２つあります。 例えば sheet２（データベース２）のJ２，P２，S２の３つ条件にあうものを sheet１（データベース１）の中から検索して 一致した場合は sheet２のY２に○か× を表示 ○の場合は一致した行の指定の列のセルをの sheet２のZ２ に表示させたいのですが どちらのデータベースにも完全に一致する列の紐づけデータがないのでVLOOKUPは使えず 重複データも沢山あるため複数検索のDGETを使っても検索条件を毎回 入力していかなければならないので大変な手間になってしまいます。 http://i.imgur.com/SFsX0Zq.jpg 二行目・三行目とオートフィルで全ての行に対応できる方法はないでしょうか？ 表示されていない列は非表示にしてあります。 関数にはこだわりません。複雑になってしまってもいいです。 マクロでもいいです。 皆様お知恵をお貸しください。宜しくお願い致します。

何度も太陽光発電業者が売り込みに来ていたが 毎回断っていました １，発電量が安定しないので沢山つながると配電系統に影響しないかと質問すると分からない ２，今の効率は低すぎないか　これ以上は大きくならないとの説明 ３，工事が終わった頃には買い取り価格が下がらないか　大丈夫との回答 結局買い取り価格は４５円から今は３０円位まで下がった 今日のニュースで電力会社が受け入れを中断 予想が当たってやれやれです 宝くじが当たれば良いけど

IF関数を組み合わせて式を作りましたが、条件が合わないときはセルの内容を変えないで欲しいのです。方法がありますか？ B2の式=IF($A$1>B1,A1*B1,そのまま）みたいな つまり、FALSEや空白を返すのではなく内容を変えないで欲しいのです 素人の質問ですみません。

自身のファイルを読み取り専用で新たに立ち上げて、シートを選択したいのですが Private Sub cmd_読み取り専用で開く_Click() Dim xlApp As Object Dim xlBook As Object Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.FullName) xlApp.Visible = True xlApp.xlBook.Sheets("メイン").Select Set xlApp = Nothing Set xlBook = Nothing End Sub だと xlApp.xlBook.Sheets("メイン").Selectでエラーになります。 文法が間違ってると思うのですが、修正案をご教授ください。

●質問： Excelの表に記入された入力値に誤りが無いか、フィルタ機能で確認を試みています。 添付の画像のように入力されており、日付や名前はうまくフィルタ出来たのですが、「現場コード」（数値）がどうしてもうまくフィルタ出来ません。 桁数が多い、桁数が少ない、極端に数値が大きいor小さい、入力忘れ（空欄）など、明らかに入力ミスである項目を見つけるため、今までは「5?????」に等しくない値をフィルタしていました。 例では、4行目と6行目が引っかかることになりますが、どのようにすればフィルタ出来るでしょうか？ ●経緯： 何故か今まではこの現場コードの欄が文字列になっているExcelデータが回ってきていたのですが、最近この現場コード欄が数値の状態のExcelが回ってくるようになり、それ以来「5?????」ではフィルタ出来なくなりました。（「等しくない」にすると、全行表示されたままです。） そもそも、フィルタする際に[▼]ボタンを押したとき、[テキストフィルター]ではなく [数値フィルター]と言う項目があるのが原因ではないかと思います。 ネットで調べてみると、隣のセルに「=""&C2」のような式を入れてオートフィルし、その式を入力した列をフィルタすると言う方法はありましたが、現場コード欄が文字列で届いていたときはそのままフィルタ出来たのが不可解です。 C列の [セルの書式設定] にて、分類を「文字列」にしても、上述のフィルタに引っかかりません。 フィルタの[▼]ボタンを押した後に「5?????」を検索すれば該当行を導き出すことはできますが、試しにこの動作をマクロ記録機能にかけてみると、下記のように、検索で出てきた結果の値を直接指定したことになっています。 ActiveSheet.Range("$A$1:$C$6").AutoFilter Field:=3, Criteria1:=Array( _ "512013", "513572", "513842"), Operator:=xlFilterValues 最終的に、このフィルタの動作をマクロに組み込むことも考えているため、どのようにフィルタしようか判断に困っています。 どのような操作でフィルタをかければ、該当行（4行目と6行目）を見つけ出せるでしょうか？ ●利用環境： OS：Windows7 Excel2010 ＊画像の表は例です。記入している数値は実際に業務で使用したものではありません。

dim tbl(20) as string として、２桁の数字を保存しています。 この中に、例えば17が在るかを聞きたいのですが、 方法が分からないため、 dim tblb as string として別のテーブルを取り、 tblb = tblb & "." & youso として21個の数字を格納しています。 そして、 p = instr(tblb,youso) として解決しています。 ここで質問です。 ズバリ、１発で tbl(20)を使って解決する方法はないでしょうか。 宜しくお願いします。

いつもとても助けられています Excel 2010を使用しています 今、A1からA20まで、順番に1, 2, 3,,,,20と数字が入り、B1, B8, B10, B11, B17, B20に、91, 104, 105, 106, 111, 121と数が入っている時に、C8に(B8-B1)/(A8-A1)、C10に(B10-B8)/(A10-A8)、C11に(B11-B10)/(A11-A10)、C17に(B17-B11)/(A17-A11)と自動的に入れられるような関数ができるのかどうかを知りたいと思っています そしてさらに欲を言えば、Aの列が、このような数字ではなく、日付であった場合(たとえばA1が2002/1/1、A8が2002/8/1、A10が2002/10/1といった規則的な増加の場合、あるいはA1が2002/1/1、A8が2002/6/8、A10が2004/7/9というような全く不規則な増加の場合)についても計算ができればうれしいです 要するに、とびとびの数値が入力されている場合の増加速度を求めるような関数です C2からC7のようなセルには、IF(B2="","",●●）で回避できると思っています 何か良い方法はないでしょうか よろしくお願いします

エクセル2010を使っています。 AK12～AK30000の中の空白とエラーを含むセルの中の大きいものから順に、AK２～AK10まで9個抜き出したいと思います。 またAN列も同じ様に抜き出したいと思います。 LARGE関数ではエラーが出てしまい、抜き出せませんでした。 詳しい方、教えていただけませんか、よろしくお願い致します。

エクセル2010を使っています。 AK12～AK30000の中の空白とエラーを含むセルの中の大きいものから順に、AK２～AK10まで9個抜き出したいと思います。 またAN列も同じ様に抜き出したいと思います。 LARGE関数ではエラーが出てしまい、抜き出せませんでした。 詳しい方、教えていただけませんか、よろしくお願い致します。

リストボックス 何も選択していないのなら、1行目を選択状態にする というようにするにはどうすればいいでしょうか？ 今は無理やり Sub test() If IsNull(Sheets("Sheet2").ListBox1.Value) = True Then Sheets("Sheet2").ListBox1.Value = "a" End If End Sub としていますが、 「リストボックスの1行目を選択状態にする」 にはどうすればいいですか？ リストボックスがどの業も選択してない時に、 画像のようにしたいです。

どなたか教えてください。 EXCELなのかWORDなのか、もしくはほかのものを使ってなのかさえ分りませんが、教えてください。 よく、空白のセル（EXCELで言えば）の中に文言を入れたいとき、右側の下向き三角（と言うのでしょうか）を押すと、何種類かの文言が出てきてその中のものをクリックすると、そのセルに自動的に入れられることが有りますが、それはどのようにすれば出来るのでしょうか？ 表現が下手で済みませんが、初心者の私でも分るように教えていただけたらありがたいです。 よろしくお願いします。