Wendy02 の回答履歴

Cell内の一部を指定する方法(Word VBA) Word VBAで、特定のCellの中の一部だけを指定するには、どうすればいいのでしょうか。 たとえば、ある表のCell(1, 2)の6～10文字目を指定して、そこだけを太字にするために、 Set Date1 = Table1.Cell(1, 2).Range(Start:=5, End:=10) としても、RangeメソッドはCellに使えないようなので、エラーになってしまいます。

妊娠したら霊感があがる(?) 私はよく、読者がネタを投稿して４コマ漫画やショートストーリーにする漫画雑誌を読んでいます。 ちょっと前にその雑誌で、妊娠出産の特集があったのですが「妊娠したら霊感がめばえた」というような話がいくつかありました。 本当にそのようなことがありえるのでしょうか？ 最近妊娠したので、本当ならかなりビビリな私は怖いです。 私は幼い頃、霊に憑かれたり見たりしていたらしい(らしいと言うのは親や親戚から聞いただけで、私の当時の記憶があやふやだからです)ので、成長するにつれなくなってきた霊感が、妊娠でまた出てきたとしたら…と思うと怖いです。 対処ってどうすれば良いのですか？ そして霊感というのは遺伝するものなのでしょうか？ 霊というのは信じている人信じていない人の温度差が激しいのでこんなことを質問するのは少し悩んだのですが、返答をいただけると嬉しいです。 1.妊娠すると霊感があがる方もいるのですか?(自分がそうだ、知り合いの人でいた等) 2.もし見てしまった時の対処はどうすれば良いですか？ 3.なるべく見ないようにする対処は？ 4.子どもにも遺伝しますか？ 5.霊を信じている人は信じている理由、信じていない人は信じていない理由を聞かせてもらえたら嬉しいです(これは気になるだけです) 長くなってしまって申し訳ありません。 お答えいただければ嬉しいです。 読んで下さってありがとうございました。

A B C コード 商品 単価 1 チョコレート 100 2 キャンディー 50 3 ガム 80 4 スナック菓子 150 5 乳製品 170 上記表の下にデータを追加していきたいのですが、その際重複データの入力及びコピーもできないようにしたいと思います。 Private Sub CommandButton1_Click() Dim endrow As Long Dim i As Integer endrow = Range("商品").Columns(1).CurrentRegion.Rows.Count Range("商品").Rows(endrow + 1).Columns(1).Value = TextBox1.Value Range("商品").Rows(endrow + 1).Columns(2).Value = TextBox2.Value Range("商品").Rows(endrow + 1).Columns(3).Value = TextBox3.Value TextBox1.Value = Clear TextBox2.Value = Clear TextBox3.Value = Clear With Range("A2") For i = .CurrentRegion.Rows.Count To 1 Step -1 If .Offset(i, 0) = .Offset(i - 1, 0) Then .Offset(i, 0).EntireRow.Delete Next i End With End Sub すぐ上の行と同じ場合には入力ができませんが、それ以外での重複している場合の入力を回避する為の改善箇所をご教示の程お願い致します。(コードが同じで入力不可)

マクロについてです。 sheet1からsheet5まで同じ内容の表があります。 inputbox を使って開始の日付と終了の日付を入力して、それぞれのシートのA1セルに全部の日付を入力させ、日付の入力されたシートの枚数分だけ印刷されるマクロを作成したいと考えております。まだまだマクロに関して無知なもので、いろいろと検索したり考えてもみたのですができませんでした。どうしても必要なものでこんな私になんとかご助力頂きたくヒントなどを頂きたく思います。どうか宜しくお願い致します。

Ｅｘｃｅｌ２００７で、マクロ実行時にＳｈｅｅｔの確認をしたいのですが、その方法を教えて下さい。 月別のシートを、毎月２枚(成績と実績)が作ってあり、当該シートを開き○月と入力することによりいろいろ作業をしたいのですが、このシート上でマクロを走らせて良いのかを判断させてから稼働するようにしたい。シートや月が間違っていたら、警告を発し処理を中止させるようにしたい。どうぞご指導をよろしくお願いします。 Sub データ並べ替え() Dim tuki As Integer '処理月 tuki = InputBox("処理月を半角英数で入力して下さい") Range("A2").Value = tuki ActiveSheet.Name End Sub

システムの英訳の件で何度かお世話になり、ありがとうございます。今回も質問したい件がありますので、ご教示頂ければ幸いです。 このシステムは、すでに作成されたインボイスに記載されている商品の数量を訂正するという内容です。 訂正するインボイスを選択する過程での文章ですが （和文） Invoiceをセレクトする条件を入力します。Invoice年月は必須です。 入力後Ｎｅｘｔを押して下さい。 エラー条件 1.指定した条件で、データが存在しない場合。 （私の考えた英文） Enter the condition to select the invoice. Make sure to enter Invoice Month Year. Click Next key after the data is inputted. An error will occur. 1. When no invoice data is found under the condition that user assigned. 依頼者からは、「Invoice年月」を”Invoice Month Year”と表すように指示されています。 私が疑問に思うのは、この場合「条件を入力する」の条件は、”condition”　だと直訳すぎて不自然ではないかという点です。 お詳しい方のご意見を頂ければ幸いです。よろしくお願いします。. また、前回質問いたしましたこのリンクの内容は、解決しました。 念のためにリンクを貼っておきます。 http://okwave.jp/qa/q6123602.html

エクセルマクロでＡ欄に値がある行までのＣ列の範囲を指定したい。? ●エクセルマクロのＶＢＡで次のように記述しています。 Range("C2").FormulaR1C1 = "=VLOOKUP(LEFT(RC[-2],4),C[-2]:C[-1],2,FALSE)" Range("C2").Select Selection.AutoFill Destination:=Range("C2:C148"), Type:=xlFillDefault A列に文字が入っている最終行は A148なので、C2: C148 の範囲にオートフィルで貼り付けるように しています。 しかし、A列に文字が入っている最終行は、変動します。 なお、貼り付ける範囲はいつでも C2から始まります。 A列に文字が入っている最終行が A200であれば、C2: C200の範囲、 A列に文字が入っている最終行が A321であれば、C2: C321の範囲といったように、 C2の値を貼り付ける範囲を設定したいと思っています。 ●そこで、次のように記入してみました。 With Worksheets(2) Dim lRow As Long, lRow = .Cells(Rows.Count, 1).End(xlUp).Row Range("C1").Formula = "名称" Range("C2").FormulaR1C1 = "=VLOOKUP(LEFT(RC[-2],4),C[-2]:C[-1],2,FALSE)" Range("C2").Select Selection.AutoFill Destination:=Range(Cells(3, 2), Cells(lRow, 3)), Type:=xlFillDefault 変数を使って最終行を指定しても上手くいきませんでした。 （C2：C150）や（C2:C160）といったように「C2」のセルを「C2のセル」から「A列に文字が 入っている行のC列」まで貼り付けたいと思っています。 どのようにＶＢＡを記述したら良いのか教えていただけないでしょうか。

輪廻転生やスピリチュアルについてです 反対している方の意見も賛成の方のどちらの意見も理解できますが 今回は　賛成の方の意見をおねがいします＊ わたしたちは何回も生まれ変わっているとします。 ですが (1)最初に生まれた魂は　どうやってうまれるのでしょうか？ 神様から分裂したように　うまれるのでしょうか（・・；） もし神様からうまれたとしたら　みんな最初は良い人（魂）のはずです (2)なのに悪い行いをする人がいるのは最初の人生での選択分岐でわるい方を選んだからでしょうか？ だからカルマが生まれ、さらにそのあとの人生でも悪い行いを選択したため、いま現在も悪いままという感じなのですか (3)みんなが心に平安な気持ちをもつためにはどうしたらいいと思いますか？ 　

エクセル　VBA　テキストBoxが複数の場合！　 K1＝テキストボックスでそこにIDを入力 K1n=そのIDの人の名前が出ます。 １つなら下記の場合でいいのですが これがK1～K20のテキストBoxがある場合は どのようにすれば良いのですか？？ 複数の場合の記述を教えて下さい ちなみにこのDATAは他のBooKにあり それをオープンにして格納しています。 SS = SH1.Range("A65536").End(xlUp).Row For lng = 2 To SS 'テキストボックスと同じ値があればを表示する。 If k1.Text = SH1.Cells(lng, 1) Then k1n.Text = SH1.Cells(lng, 2) Exit For '同じ値がない場合はメッセージとする。 Else k1n.Text = "ID確認！" End If Next lng

大学でパワーポイントを使うために、 マイクロソフト社（以下Ｍ社）のソフト購入を検討していたのですが。 結構、いい値段いたします。 そんな折、PC雑誌を見ていたら格安のソフトが目に飛び込んできた。 大手ネット販売サイトでＭ社のパワーポイントに比べ何と1/10以下の 1980円という驚きの価格なのだ。 キングソフト社の「プレゼンテーション2007」がそれです。 資料によると中国の大手ソフト会社が「オフィスとの互換」に狙いを絞って 3年かけて開発したソフトとのこと。 こんな値段でパワーポイント？ Ｍ社のソフトと互換性も全く問題ないとの事ですが？ 本当に、このソフトで、何の問題なく、大学で通用するのですか？ 教えてください。

アメリカ英語とイギリス英語は、どのように発音して練習すればよいでしょうか？ 英語を勉強しています。 将来英語を使う職種で働いてみたいと思うため、家でＮＨＫやＤＵＯを使用しながら勉強しています。 アメリカ英語とイギリス英語の発音の違いで分からなくなってしまったため、教えてください。 下記のように、『コ』と『カ』において発音が違う気がします。 constitution イギリス英語は、コンスティテューション アメリカ英語は、カンスタテューション combine イギリス英語は、コンバイン アメリカ英語は、カンバイン compromise イギリス英語は、コンプロマイズ アメリカ英語は、カンプロマイズ ※読み方をカタカナで記載しておりますので若干違う面もあると思います。 　　・日々の練習や勉強は、どちらの発音を参考に勉強したらよいのでしょうか？ よろしくお願い致します。

エクセルＶＢＡでの呼出操作をマクロ化するには？ 【今年の7/16に以下の質問をしました】 エクセル2000です。宜しくお願いします。 VBAで、ファイルを呼び出したいのですが、Workbooks.openの書き方が良く分かりません。 呼び出すファイル名は決まっていなくて、フォルダ名は固定です。 エクセルの操作で言うと、ファイルを開くを押して、フォルダを選ぶとこまでをマクロかしたいのですが。 例えば、ドライブＤの「作業用」フォルダを開きたい場合は、どう記述すれば宜しいでしょうか？ 基礎的な部分でお恥ずかしいのですが、以下で実行しても動かんのです。 ChDir "D:\作業用" Workbooks.OpenText Filename:= "D:\作業用\*.*" 【watabe007　さんより以下の回答を頂きまして当時は上手く動いたつもりだったのですが、 　添付画像の様にファイルの種類が「すべてのファイル(*.*)」しかありません。】 Dim strRet As String ChDrive "D:\作業用" ChDir "D:\作業用" strRet = Application.GetOpenFilename(Title:="ファイル名を選択して下さい") If strRet = "False" Then 　　MsgBox "キャンセルが選択されました。処理を中止します。", vbCritical 　　Exit Sub Else 　　Workbooks.Open Filename:=strRet End If End Sub 【今回の再質問】 　当時ファイルの種類まで指定していなかったのですが、実際には、テキストデータを、カンマ区切り 　で変換して呼び出したいので、ファイルの種類は、「テキストファイル」としたいのですが、 　どうすれば宜しいでしょうか？ 　助けてください。 　（上記のような事は無理なんでしょうか？無理なら無理のご回答がご投稿戴ければ諦めます；；）

こまってます。 エクセル使って、英文の問題ダブりを見つけたいのですが、どうしても使えこなせません。たとえば、 1), I like ( ) tennis.（問題文） 1, playing 2, eating 3, running 4, waving　（選択肢） みたいな問題があったとします。 こんな形式の問題が１０００個ほどあります。ぜんぶフォーマットそろってないワードでした涙。 それで、この中から１００個ぐらいテスト用に取り出したいです。 そのときの条件が、１００問選ぶときに、それぞれの問題の「答え」と「それいがい（不正解の選択し）」が重複（だぶり）しない。（できれば、問題文の中にも選択肢に出てくる語句が出てこないようにしたい。）理由は、問題Aから問題Bの答えがわかってしまうと困るから。 countifなどもやったのですが、なにせエクセルぺーぺーなもので、英文の変化系（playing, playなど）も振り分けの条件に対応させることができません。 お時間あれば助けてください。 質問わからなければ、がんばって説明するので、おねがいします。データベース化してとっておきたいのでエクセルをつかいたいです。 osはmac 10.6.4でエクセルは２００８です。VBAはよくわかりませんが必要であれば勉強します。。すいません。 でも、なるべく簡単な方法があればお願いします。。ぐぐるでは「excel だぶり」とか「エクセル　重複　関数」とかやりました。

英単語帳の使い方　For　慶應入試 　慶應大学を志望している高2のものです。単語王を使っていて、見出し語は8割弱覚えて、まず見出し語をマスターしたら、同意語、類義語などの関連語を覚えていき、高3までには出来れば終えたいと考えています。 　　 　今はフラッシュカードを使っていて、完全にOk、自信なし、もう少し、まだ覚えていないの4つに分けています。 　そこで自分はよくスペルが似た単語の意味を取り間違えてしまうのですが、それを毎回フラッシュカードの方に書き込んでいるのですが、それを付箋に書いてブックに貼った方がいいでしょうか。そうすれば自分だけのオリジナル辞書が出来ますし、いいかなあと思うのですが。 　また、日常で出会った単語などはやはり単語王に書き留めた方がいいのでしょうか。 　みなさんはどのようにして英単語を覚えましたか。その他、英語学習に関するアドバイスなど頂けたら幸いです。 　回答よろしくお願いします。

英単語帳の使い方　For　慶應入試 　慶應大学を志望している高2のものです。単語王を使っていて、見出し語は8割弱覚えて、まず見出し語をマスターしたら、同意語、類義語などの関連語を覚えていき、高3までには出来れば終えたいと考えています。 　　 　今はフラッシュカードを使っていて、完全にOk、自信なし、もう少し、まだ覚えていないの4つに分けています。 　そこで自分はよくスペルが似た単語の意味を取り間違えてしまうのですが、それを毎回フラッシュカードの方に書き込んでいるのですが、それを付箋に書いてブックに貼った方がいいでしょうか。そうすれば自分だけのオリジナル辞書が出来ますし、いいかなあと思うのですが。 　また、日常で出会った単語などはやはり単語王に書き留めた方がいいのでしょうか。 　みなさんはどのようにして英単語を覚えましたか。その他、英語学習に関するアドバイスなど頂けたら幸いです。 　回答よろしくお願いします。

こまってます。 エクセル使って、英文の問題ダブりを見つけたいのですが、どうしても使えこなせません。たとえば、 1), I like ( ) tennis.（問題文） 1, playing 2, eating 3, running 4, waving　（選択肢） みたいな問題があったとします。 こんな形式の問題が１０００個ほどあります。ぜんぶフォーマットそろってないワードでした涙。 それで、この中から１００個ぐらいテスト用に取り出したいです。 そのときの条件が、１００問選ぶときに、それぞれの問題の「答え」と「それいがい（不正解の選択し）」が重複（だぶり）しない。（できれば、問題文の中にも選択肢に出てくる語句が出てこないようにしたい。）理由は、問題Aから問題Bの答えがわかってしまうと困るから。 countifなどもやったのですが、なにせエクセルぺーぺーなもので、英文の変化系（playing, playなど）も振り分けの条件に対応させることができません。 お時間あれば助けてください。 質問わからなければ、がんばって説明するので、おねがいします。データベース化してとっておきたいのでエクセルをつかいたいです。 osはmac 10.6.4でエクセルは２００８です。VBAはよくわかりませんが必要であれば勉強します。。すいません。 でも、なるべく簡単な方法があればお願いします。。ぐぐるでは「excel だぶり」とか「エクセル　重複　関数」とかやりました。

「飲水」って単語、聞いた事ありますか？ 辞書で検索しても引っ掛からない、「いんすい」＝「飲水」漢字の変換にも出て来ません。 私自身聞いた事ない単語なのですが、職場の先輩が、『意味は飲み物を摂取する事』と言っています。 『お茶を飲水する』なんて言うんですよ、おかしくないでしょうか？ 果たして正しいのかどうかご回答お願いします。

ExcelでのWebクエリについて Excel 2002を使い自社の販売価格と比較するため 差額計算ができる一覧表を作りました。 データ取り込み→sheet1→必要な列だけ別Sheet2にリンク→価格比較表 OSは WinXP sp3 を使用しております。 しかし、更新のたびに新製品がHPページにUP(毎日変動)されると レコードがずれしまい指定セルの価格比較(差額)が出来なくなり いつも訂正に時間を取られてしまいます。 外部データの範囲のプロパティでの設定(3番目の上書き)でも駄目です。 行列関数かなと思っているのですが、取り込みデータの範囲が増えてしまうので どのような関数がベストなのかがわかりません。 VBAでの知識がなく難しい設定は出来ません。 良い方法などありますでしょうか。 http://kakaku.com/camera/camera-lens/ma_14/?lid=shop_pricemenu_makername

ExcelでのWebクエリについて Excel 2002を使い自社の販売価格と比較するため 差額計算ができる一覧表を作りました。 データ取り込み→sheet1→必要な列だけ別Sheet2にリンク→価格比較表 OSは WinXP sp3 を使用しております。 しかし、更新のたびに新製品がHPページにUP(毎日変動)されると レコードがずれしまい指定セルの価格比較(差額)が出来なくなり いつも訂正に時間を取られてしまいます。 外部データの範囲のプロパティでの設定(3番目の上書き)でも駄目です。 行列関数かなと思っているのですが、取り込みデータの範囲が増えてしまうので どのような関数がベストなのかがわかりません。 VBAでの知識がなく難しい設定は出来ません。 良い方法などありますでしょうか。 http://kakaku.com/camera/camera-lens/ma_14/?lid=shop_pricemenu_makername

ExcelでのWebクエリについて Excel 2002を使い自社の販売価格と比較するため 差額計算ができる一覧表を作りました。 データ取り込み→sheet1→必要な列だけ別Sheet2にリンク→価格比較表 OSは WinXP sp3 を使用しております。 しかし、更新のたびに新製品がHPページにUP(毎日変動)されると レコードがずれしまい指定セルの価格比較(差額)が出来なくなり いつも訂正に時間を取られてしまいます。 外部データの範囲のプロパティでの設定(3番目の上書き)でも駄目です。 行列関数かなと思っているのですが、取り込みデータの範囲が増えてしまうので どのような関数がベストなのかがわかりません。 VBAでの知識がなく難しい設定は出来ません。 良い方法などありますでしょうか。 http://kakaku.com/camera/camera-lens/ma_14/?lid=shop_pricemenu_makername