AKARI0418 の回答履歴

エクセルはVer2007です。 出勤簿を作成していて、現在下記のようになっています。 　　　 A 　　 B　 C 　D　 ～　　　Ｊ 6 　 1日 　 木　 ↑ここから作業内容等 7 　 2日　 　金 36　 31日 土 A6には　=DATE(A1,C1,1)　といれてあり、 A1やC1にある年月を記入すると自動的に日付がその月の月末まで 入力されるようになっています。 B6には =WEEKDAY(A6) とし、自動で曜日が割り振られるようになっています。 この場合で、土日にときにその行はすべて(Jまで）赤いドットの塗りつぶしにしたいのですが条件づけるにはどうすればいいのか、教えてほしいです。

現在各所から送られてくる同一フォーマット書類（ファイル名は別,シート1枚,名称:sheet1）約150ファイルを 集計ブックと同じフォルダに保存して集計ブックの集計シートで串集計するマクロコードを見つけて便利に使用しております。 が、このたび各所から送られてくる同一フォーマット書類がシート二枚(名称：sheet1,sheet2)に渡る事になりまして、 集計ブックの集計シートもそれぞれ用に2枚必要になり、 1枚目の「集計1シート」には「sheet1」だけを集計し、二枚目の「集計2シート」には「sheet2」だけを集計するのはどうすればよいでしょうか？ また、今回追加になったシートは計算シートで、計算式が埋められており、「マクロの記録」なんてのでやってはみましたが、 埋められている計算式が反映されるだけで計算結果が反映されませんでした。 合わせてご教授願えると大変助かります。 老人にお知恵をお貸しください。よろしくお願いいたします。

ご存知の方がいたら教えてください。 今下記のようなデータがあります ABC　３０ ABC　４０ ABC　３４４ ABD　１００ ABD　２００ ABE　１００ これを ABC　３０　４０　３４４ ABD　１００　２００ ABE　１００ のように横展開した結果を出すにはクエリはどのように組んだらよいのでしょうか？ 半日かけて悩んでますが、、結果が出ません。 童かよろしくお願いします。

現在、マクロで重複データを削除する処理しています。 一応動作はするのですが、すごく遅いです。 およそ私のPC（XPのQuadコア）で1行処理するのに約0.85秒かかっています。 データが1万行以上もあるようなときは、何時間もかかってしまいます。 エクセルのデータは、以下のように、 A列とB列に文字列が何行にも渡って入っているものです。 A列　　 B列 AAA BBB CCC DDD EEE FFF GGG BBB CCC HHH CCC DDD （以下同様） 上のようなシートで、A列とB列の両方について重複する行を削除したいと思っています。 上記例だと、一番最後の「CCC-DDD」の箇所を削除したいです。 そこで以下のようなマクロを組みました。 (1)はじめに重複をチェックする変数（A列・B列）を取得します。 (2)上から順にチェックを開始します。 (3)A列・B列双方が取得した変数と一緒なら重複カウンターに1を加える。 （1回目の出現では削除しない） (4)チェックを続け、重複カウンターが2以上になった行は削除する。 (5)上記を空白行まで繰り返す。 というような流れです。 （マクロ記述の途中部分からです） '重複する行を削除 counter3 = 1 Do search_word1 = Cells(counter3, 1).Value search_word2 = Cells(counter3, 2).Value counter4 = 1 double_counter = 0 Do If Cells(counter4, 1).Value = search_word1 And Cells(counter4, 2).Value = search_word2 Then double_counter = double_counter + 1 If double_counter > 1 Then '二度以上出現した場合から削除する Cells(counter4, 1).EntireRow.Delete counter4 = counter4 - 1 End If End If counter4 = counter4 + 1 Loop Until Cells(counter4, 1).Value = "" counter3 = counter3 + 1 Loop Until Cells(counter3, 1) = "" 初心者なのもので、冗長や不適切な箇所などあるかと思います。 より効率的、あるいは、より早くできる書き方がありましたら、 ぜひともお教え下さい・よろしくお願いします。

お世話になっております。 表題の件で ご相談が御座います。 現状、住所録のようなリストを担当者毎に名前を付けて担当者のローカルに保存してもらって 管理・入力してもらっています。（仮にbook ABC～Jとして） そのリスト（book ABC～J）を毎日メールに添付して送信してもらい、自分の保管している大元のbookに移しています。（仮にbook「あ」とします） その時に各担当者が おかしな入力をして寄越したら修正して送り返したいのですが 自分が いちいち全員のシート（book ABC～J）にパスワード付の保護を掛けてしまったので編集する際に保護を解除してから やらなければいけないはめになりました。 保護を掛けないのは方法の１つとしてありますが それはあまりにもリスキーなのでやりたくありません。 VBAに不可能は無いと信じておりますが マクロを実行する度にbook ABC～Jのシートの保護を解除し、閉じる時には自動的にパスワード付で保護を掛けて閉じる（アクティブになっているブックを）というような事は可能でしょうか？ イメージとしては 自分の管理するbook「あ」にVBAを登録しておき、開いている全てのブックに有効になるようにしたいと考えているのですが どなたか お分かりになる方、ご教示いただけますでしょうか。 現在「かんプロVBA」勉強中で御座いますが「基礎編」なので色々ご迷惑をお掛けするかと存じますが 何卒宜しくお願い致します。

vb2003でdatagridにチェックボックス、リストボックス、 テキストボックスを追加したいです。 datasetを作成し、ヘッダ、列、行の追加まではできましたが、 そこへ各列にコントロールの追加をしたいです。 チェックボックスはdatasetでboolean型にすると 自動でチェックボックスになると聞いたのですが、なりません。 コントロールの追加の仕方を教えてください。

VB初心者です。　教えてください。 Excelファイルを(OpenFileDialogで)選択してその内容をFormのテキストボックス等に読み込むにはどのようにしたらいんでしょうか？ ちなみにDBには接続しない方法です。 Excelクリエータを使ったら出来るみたいなんですが、方法がわかりません。 VBからExcelへインポートはわかるんですが... 判る方がいらっしゃれば教えてください。

VB2008で研究用ソフトの作成をしています。 数式を入力しそのグラフを書く、と言ったものを作ろうとしているのですがうまくいきません。 たとえば、TextBox1に何か数値を入力したとして、 Dim str As String = textbox1.text Dim num As Decimal = Decimal.Parse(str) とすれば確かにnumはInt型で計算ができるのですが、同様にy=3*xのグラフを入力してそのｘに-1から1までの数値を代入させて点を取りたいとき、この方法ではどうにもできずに困っています。 たとえば上の例では、3*xを入力した後xに好きな値を代入できるようにするようにはどうしたらできるのでしょうか？ 説明がわかりにくくてすみません。よろしくお願いします。

２２歳男性です。 vb2005で開発を行っています。 app.configに設定したセクション内のデータを取得しようとしているのでがうまくいきません。 ■app.config <applicationSettings> <LogDataSummary.My.MySettings> <setting name="aaa" serializeAs="String"> <value>AAA</value> </setting> <setting name="bbb" serializeAs="String"> <value>BBB</value> ・・・・・・・ ■exe my.settings.xxxxxxxxx （xxxxは任意） 上記のようにセクション内の「name」:aaa、bbbのような構成でかかれたものが複数あるとします。そして、exe側ではその複数値を取得したいと考えています。 「my.settings.xxxxx」プロパティで取得できると考えているのでが、探し出すことができません。 知っている方がいましたらご教授願います。

お世話になっております。 表題の件で ご相談が御座います。 現状、住所録のようなリストを担当者毎に名前を付けて担当者のローカルに保存してもらって 管理・入力してもらっています。（仮にbook ABC～Jとして） そのリスト（book ABC～J）を毎日メールに添付して送信してもらい、自分の保管している大元のbookに移しています。（仮にbook「あ」とします） その時に各担当者が おかしな入力をして寄越したら修正して送り返したいのですが 自分が いちいち全員のシート（book ABC～J）にパスワード付の保護を掛けてしまったので編集する際に保護を解除してから やらなければいけないはめになりました。 保護を掛けないのは方法の１つとしてありますが それはあまりにもリスキーなのでやりたくありません。 VBAに不可能は無いと信じておりますが マクロを実行する度にbook ABC～Jのシートの保護を解除し、閉じる時には自動的にパスワード付で保護を掛けて閉じる（アクティブになっているブックを）というような事は可能でしょうか？ イメージとしては 自分の管理するbook「あ」にVBAを登録しておき、開いている全てのブックに有効になるようにしたいと考えているのですが どなたか お分かりになる方、ご教示いただけますでしょうか。 現在「かんプロVBA」勉強中で御座いますが「基礎編」なので色々ご迷惑をお掛けするかと存じますが 何卒宜しくお願い致します。

初めて質問させていただきます。エクセルvbaで質問です。 Aというテーブルに名前 idという列があり名前は複数のidを持っていて名前とidは重複してるものもあります。そこから 名前が一緒でidが違うid そのidを名前ごとに一つのセルに出力したいのですが、可能でしょうか？ かなり初心者で質問の情報もこれぐらいしか出てこないほどです。 申し訳ありませんがご教授ください。

初めて質問させていただきます。エクセルvbaで質問です。 Aというテーブルに名前 idという列があり名前は複数のidを持っていて名前とidは重複してるものもあります。そこから 名前が一緒でidが違うid そのidを名前ごとに一つのセルに出力したいのですが、可能でしょうか？ かなり初心者で質問の情報もこれぐらいしか出てこないほどです。 申し訳ありませんがご教授ください。

エクセルシート上でドラッグをしたら、選択範囲が青くなりますが その色が薄くて見にくいです。 どうにかして選択範囲した時の色を濃くできないでしょうか？

VB6を使用しています。 例えば、予めあるテキストボックスに任意の言葉を入れて 次回立ち上げたときにその言葉が表示されるようにしたいです。 恐らく、こういう事をしたい場合には、別ファイルにデータ保存して読み込む等になると思うのですが、 今回は実行ファイルのみで上記のような事をしたいです。 VB2005やNETとかではあるみたいですが、VB6ではないのでしょうか？ わかる方よろしくお願いします。

VB6を使用しています。 例えば、予めあるテキストボックスに任意の言葉を入れて 次回立ち上げたときにその言葉が表示されるようにしたいです。 恐らく、こういう事をしたい場合には、別ファイルにデータ保存して読み込む等になると思うのですが、 今回は実行ファイルのみで上記のような事をしたいです。 VB2005やNETとかではあるみたいですが、VB6ではないのでしょうか？ わかる方よろしくお願いします。

お世話になっております。 表題の件で ご相談が御座います。 現状、住所録のようなリストを担当者毎に名前を付けて担当者のローカルに保存してもらって 管理・入力してもらっています。（仮にbook ABC～Jとして） そのリスト（book ABC～J）を毎日メールに添付して送信してもらい、自分の保管している大元のbookに移しています。（仮にbook「あ」とします） その時に各担当者が おかしな入力をして寄越したら修正して送り返したいのですが 自分が いちいち全員のシート（book ABC～J）にパスワード付の保護を掛けてしまったので編集する際に保護を解除してから やらなければいけないはめになりました。 保護を掛けないのは方法の１つとしてありますが それはあまりにもリスキーなのでやりたくありません。 VBAに不可能は無いと信じておりますが マクロを実行する度にbook ABC～Jのシートの保護を解除し、閉じる時には自動的にパスワード付で保護を掛けて閉じる（アクティブになっているブックを）というような事は可能でしょうか？ イメージとしては 自分の管理するbook「あ」にVBAを登録しておき、開いている全てのブックに有効になるようにしたいと考えているのですが どなたか お分かりになる方、ご教示いただけますでしょうか。 現在「かんプロVBA」勉強中で御座いますが「基礎編」なので色々ご迷惑をお掛けするかと存じますが 何卒宜しくお願い致します。

お世話になります。 エクセルでマクロを作成しているのですが、 デバッグ中にマクロを無効にするを選択した後 マクロを有効にするで起動すると「MicrosoftExcel は動作を停止しました」になります。 終了させてマクロを無効にするで上書きをして 再起動すると動作します。 原因は何なのでしょうか？ コードは以下です。 ・ThisWorkbook_Open ActiveWorkbook.Application.Visible = False UserForm1.Show ・UserForm_Activate Set clsUsrfrm = New kroboCls ・クラス側 コンストラクタ With UserForm1 Set EV_pg = .MultiPage1 Set EV_cmbKind = .cmbKind Set EV_cmdUpdate = .cmdUpdate Set EV_cmdDel = .cmdDel Set EV_cmdHistExcel = .cmdHistExcel Set EV_cmdMoveExcel = .cmdMoveExcel Set Ev_cmdEnd = .cmdEnd Set EV_cmd1s = .cmd1s Set EV_cmd2s = .cmd2s Set EV_cmd3s = .cmd3s Set EV_cmd4s = .cmd4s Set EV_cmd5s = .cmd5s Set EV_ScmdUpdate = .ScmdUpdate Set EV_Scmds = .scmds Set EV_ScmdBack = .ScmdBack Set EV_ScmdNext = .ScmdNext Set EV_cmdHistExcel = .ScmdHistExcel Set EV_ScmdMoveExcel = .ScmdMoveExcel End With If initDisp() = False Then Call errProc("kRoBOCls-Class_Initialize", "initDisp-err") End if Private Function initDisp() As Boolean Dim i As Integer On Error GoTo errTrap initDisp = True With UserForm1 With .cmbKind .Clear .AddItem "値上がり" .AddItem "値下がり" .AddItem "ストップ高" .AddItem "ストップ安" .AddItem "出来高" .AddItem "時価総額上位" .AddItem "時価総額下位" .AddItem "単元株価格上位" .AddItem "単元株価格下位" .AddItem "配当利回り" .AddItem "高ＰＥＲ" .AddItem "低ＰＥＲ" .AddItem "高ＰＢＲ" .AddItem "低ＰＢＲ" .ListIndex = 0 End With .op50.Value = True .dateTime = "------" For i = 1 To 60 .Controls("op" & i).Enabled = False .Controls("op" & i).Value = False Next For i = 1 To 10 .Controls("DEL" & i).Enabled = False Next .cmd1s.Enabled = False .cmdHistExcel.Enabled = False .cmdMoveExcel.Enabled = False .cmd2s.Enabled = False .cmd3s.Enabled = False .cmd4s.Enabled = False .cmd5s.Enabled = Falss .SdateTime = "----------" .ScmdBack.Enabled = False .ScmdNext.Enabled = False .ScmdHistExcel.Enabled = False .ScmdMoveExcel.Enabled = False .scmds.Enabled = False For i = 1 To 50 .Controls("J" & i).TextAlign = fmTextAlignRight .Controls("C" & i).TextAlign = fmTextAlignRight .Controls("T" & i).TextAlign = fmTextAlignRight .Controls("R" & i).TextAlign = fmTextAlignRight .Controls("Z" & i).TextAlign = fmTextAlignRight .Controls("H" & i).TextAlign = fmTextAlignRight .Controls("D" & i).TextAlign = fmTextAlignRight Next End With Exit Function errTrap: initDisp = False End Function とりあえず、関係しそうなところを入れました。 よろしくお願いいたします。

初めて質問させていただきます。エクセルvbaで質問です。 Aというテーブルに名前 idという列があり名前は複数のidを持っていて名前とidは重複してるものもあります。そこから 名前が一緒でidが違うid そのidを名前ごとに一つのセルに出力したいのですが、可能でしょうか？ かなり初心者で質問の情報もこれぐらいしか出てこないほどです。 申し訳ありませんがご教授ください。

word2007の数式フォントであるCambria Mathを削除してしまい、 数式エディタが正常に動作しません。 Cambria Mathを手に入れる方法か、別のフォントで数式エディタが正常に動作させる方法を教えてください。

word2007の数式フォントであるCambria Mathを削除してしまい、 数式エディタが正常に動作しません。 Cambria Mathを手に入れる方法か、別のフォントで数式エディタが正常に動作させる方法を教えてください。