ushi2015 の回答履歴

エクセルVBAにて ・”花”という文字を検索します。 ・見つかったセルを切り取り、どこか別のセルに貼り付けます。 ・そして、元々”花”があったセルに”海”と書き込みます。 このような場合、元々”花”があったセルを覚えておくには、どうすればよいのでしょうか？

エクセルVBAにて ・”花”という文字を検索します。 ・見つかったセルを切り取り、どこか別のセルに貼り付けます。 ・そして、元々”花”があったセルに”海”と書き込みます。 このような場合、元々”花”があったセルを覚えておくには、どうすればよいのでしょうか？

いつもお世話になっています。 ありがとうございます。 下のようなことがしたいのですがうまくいきません。 どのようにしたらよいのでしょうか。お教えください。 Dim u As Long For u = 4 To 15 入力フォーム(CommandButton & u).ForeColor = RGB(0, 0, 0) Next u

私は、養命酒はあくまでお酒なので、未成年やアルコールに弱い人は飲めないんじゃないかと思っているのですが、漢方みたいな物だから、少量だし飲んでも大丈夫じゃないの？と、今仲間内で意見が割れています。 どちらが正しいのでしょうか？

エクセルVBAにて ・”花”という文字を検索します。 ・見つかったセルを切り取り、どこか別のセルに貼り付けます。 ・そして、元々”花”があったセルに”海”と書き込みます。 このような場合、元々”花”があったセルを覚えておくには、どうすればよいのでしょうか？

エクセルVBAにて ・”花”という文字を検索します。 ・見つかったセルを切り取り、どこか別のセルに貼り付けます。 ・そして、元々”花”があったセルに”海”と書き込みます。 このような場合、元々”花”があったセルを覚えておくには、どうすればよいのでしょうか？

ネット使用中やoffice使用中などに「応答しない」が発生。暫くすると復帰する。 Windows　8.1、　IE11　です。 ネットで調べたり、システムの復元やトラブルシューティングなどをしてみましたが、効果はありませんでした。 Windows8.1のシステム修復やIE11の再インストールなどがありますが、良くわからないので まだ実行していません。 素人ですので、出来るだけ優しく教えてください。

下図のようなシートがあります。A列：部署名、B列：役職名、C列：部署番号、D列：基幹職No、E列：氏名、F列：基幹職人数、G列：一般職人数、H列：合計人数　と配置されています。ここで各部署ごとの基幹職人数・一般職人数・合計人数をそれぞれ求めたいのです。 基幹職人数(図の黄色のセル)を求めるには基幹職No.の入っている個所をカウントするので、以下の通りとなると思うのですが Sub macro4() ' ' Macro 4 Macro ' Dim Gyo As Integer Application.DisplayAlerts = False Sheets("WORK").Select Gyo = 2 Do While Cells(Gyo, 3) <> "" If Cells(Gyo, 3) <> "" Then If Cells(Gyo, 4) <> "" Then Cells(Gyo, 6).Select ActiveCell.Formula = "=counta(""D"" & Gyo & "":"" & ""D"" & Gyo)" End If End If Gyo = Gyo + 1 Loop Range("A1").Select End Sub 一般職人数及び合計人数を求める場合のコーディングが分かりません。 因みに一般職はD列：基幹職Noが空白となっている個所であり、一般職人数のセルは部署番号が変わる1つ前の行のG列（図の水色のセル)、合計人数も部署番号が変わる1つ前の行のH列（図の橙色のセル)に出力するものとしたいのです。このようなことが出来ますでしょうか。 なお条件として、 （１）組織変更が発生する都度、部署番号・基幹職No・人数も変わる （２）合計人数は部署番号ごとの基幹職人数＋一般職人数とする であります。どうかご教授の程宜しくお願い致します。

下図のようなシートがあります。A列：部署名、B列：役職名、C列：部署番号、D列：基幹職No、E列：氏名、F列：基幹職人数、G列：一般職人数、H列：合計人数　と配置されています。ここで各部署ごとの基幹職人数・一般職人数・合計人数をそれぞれ求めたいのです。 基幹職人数(図の黄色のセル)を求めるには基幹職No.の入っている個所をカウントするので、以下の通りとなると思うのですが Sub macro4() ' ' Macro 4 Macro ' Dim Gyo As Integer Application.DisplayAlerts = False Sheets("WORK").Select Gyo = 2 Do While Cells(Gyo, 3) <> "" If Cells(Gyo, 3) <> "" Then If Cells(Gyo, 4) <> "" Then Cells(Gyo, 6).Select ActiveCell.Formula = "=counta(""D"" & Gyo & "":"" & ""D"" & Gyo)" End If End If Gyo = Gyo + 1 Loop Range("A1").Select End Sub 一般職人数及び合計人数を求める場合のコーディングが分かりません。 因みに一般職はD列：基幹職Noが空白となっている個所であり、一般職人数のセルは部署番号が変わる1つ前の行のG列（図の水色のセル)、合計人数も部署番号が変わる1つ前の行のH列（図の橙色のセル)に出力するものとしたいのです。このようなことが出来ますでしょうか。 なお条件として、 （１）組織変更が発生する都度、部署番号・基幹職No・人数も変わる （２）合計人数は部署番号ごとの基幹職人数＋一般職人数とする であります。どうかご教授の程宜しくお願い致します。

http://imgur.com/5e8TsP1 上記図のように、シート１のB列に各文字を入力しています。 そして、A列にはもしB列に文字が入力されていたらID代わりの数値を表示する、という式を入力してあります。 次に、シート１のA列、B列をコピーして、シート２に数値としてペーストをします。 すると、A列は空白のはずが、xldown操作をすると元のセルで式が入力されていたものまで選んでしまい、真の空白セルとして認識してくれません。 そこで、このような例の場合、どうコピーペースト、または選択をすれば偽物の空白 セルを生み出さないように出来るでしょうか？ 実際に使用するデータは項目名が多く存在し、マクロですべてのセルを選択→新規ブックを作成してそこにペースト、という処理を行っています。 この時に偽物の空白セルが出ると、データベースに読みこむ際に不都合が生じますので、何とか改善を図りたいです。 VBA、関数、Excel上のテクニックのいずれでも構いませんので、どうかご教授下さい。 よろしくお願いいたします。

色の付いたセルへの移動方法で教えて下さい。 添付した画像のような時の場合に 例えばD2セルにカーソルがあって マクロを実行すると そこから次の塗りつぶし（10～16行）のD16に移動するには どうすればいいですか？ 色の付いていないセル（画像でいうと7、9行目）と、 アクティブのセルの色と同じ色がある場合は、 その部分は抜かしたいです（画像でいうと8行目） 色は限定というわけではないので アクティブセルの色と違う色を見つけた場合に その色の塊の一番最後のD列のセルに移動するという感じです。 D16で実行すると次はD19 D19で実行すると次はD31 という感じの事が行いたいです。 ネット色々調べましたが似たような記事はこれぐらいしかありませんでした。 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1090112035 宜しくお願いします。

現在グーグルのスプレッドシートの表計算で、0～15の数値が設定されたら、4つのセルを使って 2進数の0,1を表示するようにする計算式を作成しましたが、うまくできません。 例えば2ビット目の計算 =IF(OR(8>VAULE($F$10)>=4,VAULE($F$10)>=12),"ON","OFF") 4以上8未満もしくは12以上ならば”ON”を表示する このように式を立ててみたのですが、F10のセルに”２”という値が来ても”ON”という文字を表示してしまいます。 式の誤りの修正方法をご教示頂きますよう、よろしくお願い致します。

猫が座ってる時に首をかしげる事があるんですが これは何を意味しているのでしょうか？

エクセル2013を使用しています。 入力があっているかの確認のためのデータ確認用の棒の表示はできるものでしょうか？ 例えば紙に印刷されたものだと、 定規とかをあてて、だんだん下に下げながら確認できるように わかりやすいようにしますが、 エクセルではそのような使い方はできますか？ よろしくお願いします。

画像のことをマクロでやりたいです。 3行目の問いを4行目の問いの上に同じものを貼り付けたいです。 そして1行目にQ1、Q2・・と順番に3行目に問がある上に記述させられますか。 問数は可変です。 よろしくお願いします。

エクセルバージョンは、2002です。 A列に毎日処理するデータが1000行程あります。 構成としまして、基準となるデータから10行が1つのデータの構成で、途中から1行減って9行の構成に変化します。 途中から9行の構成部分から、10個目の部分に基準となる先頭部分が格納されて、構成データがズレてしまいます。 ズレるイメージ下記の通りです。 縦に並んでいるデータ(データは、文字列や数字です。) 1 2 3 4 5 6 7 8 9 10 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 このデータを各列のセル毎に格納 1 2 3 4 5 6 7 8 9 10 1 2 3 4 5 6 7 8 9 1　→　ズレて10の部分に1が格納 2 3 4 5 6 7 8 9 1 2　→　ズレて9と10の部分に1と2が格納 上記に組んである数式は、下記の通りです。 =INDEX($A$2:$A$1001,ROW(B2)*10+COLUMN(B2)-11) この式をB列からK列迄コピーして、必要な行数迄コピーしています。 このズレが無い様に表示させたい表示は 1 2 3 4 5 6 7 8 9 10 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 このズレが出来ない方法をご教授頂ければ幸いです。 宜しくお願い致します。

ACCESS2013を使用しています。 フォーム上のテキストボックスのプロパティ「定型入力」で、テーブルの値をセットすることは 可能でしょうか。固定であれば簡単なのですが、変動を考慮しての対応です。 例）1234-65-0001 ⇒　部門コード-期-0000　と表現すると 　　部門コードと期の箇所にテーブルの値をセットしたいのです。 　　Forms!F_画面!文書番号.InputMask = DLookup("部門コード", "M_部門")￥- DLookup("期", 　　　 "M_部門")￥- 0000;0;_　 　　 　　※￥の半角文字を入力すると、\　になるため質問上は全角にしております。 　　では構文エラーとなります。Dlookupの頭に”　を付けたりもしましたが、 　　うまくいきません。 　　以上　よろしくお願いいたします。 　

ACCESS2013を使用しています。 フォーム上のテキストボックスのプロパティ「定型入力」で、テーブルの値をセットすることは 可能でしょうか。固定であれば簡単なのですが、変動を考慮しての対応です。 例）1234-65-0001 ⇒　部門コード-期-0000　と表現すると 　　部門コードと期の箇所にテーブルの値をセットしたいのです。 　　Forms!F_画面!文書番号.InputMask = DLookup("部門コード", "M_部門")￥- DLookup("期", 　　　 "M_部門")￥- 0000;0;_　 　　 　　※￥の半角文字を入力すると、\　になるため質問上は全角にしております。 　　では構文エラーとなります。Dlookupの頭に”　を付けたりもしましたが、 　　うまくいきません。 　　以上　よろしくお願いいたします。 　

添付のE列のように、A列の日付に対して、B~Dの中で「○」のみが表示されている行に対してのみ、3営業日目を表示させるにはどうしたらよいでしょうか。 Workdayは別シートに反映済みとします。 当初、B~Dが空欄の場合は数式を反映しない、というふうにしていましたが、 空欄だけでなく添付図のように「○その他」も除外したいです。

エクセルの表の会社名から電話番号検索し表の列に追加しなければならないのですが、 多量にあり自動的にできるようなツールはないものかな？ と思いました。 このようなことはできるものでしょうか？ よろしくお願いします。