●EXCEL・VBA質問スレ Part2●

1 名前：デフォルトの名無しさん [2007/05/27(日) 00:06:58 ] ・まじめにExcelの機能を追及してみようと思う奇特なひと ・スキルがないのに無理やりVBAの仕事を押し付けられた普通のひと ・VBAなんていまさらやりたくないのに業務で仕方なく使っているひと ・とにかく漏れにこんな仕事まわすなと怒っているひと そんなM$大好きなひとからアンチM$なひとたちまで幅広くカバーするスレです 前スレ pc11.2ch.net/test/read.cgi/tech/1168308855/ 673 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 18:03:10 ] >>672 ありがとう！ 674 名前：657 mailto:sage [2007/08/22(水) 21:00:20 ] >>666 出来れば、マクロ内で処理したいと考えております。 シミュレーションファイルを作成中でして、他セルにも複雑な式が入っているので、 単純な関数なら、マクロに放り込んでしまいたいのです。 >>667>>668 配列は考えていませんでしたが、計算結果を返すセルが決まってないため、ユーザ定義関数を使おうと思ったしだいです。 >>670 function　A(b,c,d,e) 　b=（c+d)/2 　A=b*e end こんな単純な計算を、10〜20個織り込み、かつシート上で近似値を算出する計算式を使っているので、 時間がかかります。 675 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 21:20:16 ] >配列は考えていませんでしたが、計算結果を返すセルが決まってないため、ユーザ定義関数を使おうと思ったしだいです。 理由になってないんじゃない？ 配列を拒否するなら私は手を引くよ！ 676 名前：デフォルトの名無しさん [2007/08/22(水) 21:31:34 ] すみません。どなたかご存知でしたらお教えください。 VBAでsleepに該当する命令ってなんでしょうか？ WSHで、WScript.sleep(250)みたいな感じでやっているんですが、 これをVBAでやりたいです。 677 名前：デフォルトの名無しさん [2007/08/22(水) 21:44:35 ] 319 名前：名無したん(;´Д｀)ﾊｧﾊｧ[sage] 投稿日：2007/08/22(水) 16:08:34 ID:aEA9W/2t ttp://kissho2.xii.jp/20/src/2yoshi2512.7z.html　目欄 344 名前：名無したん(;´Д｀)ﾊｧﾊｧ[sage] 投稿日：2007/08/22(水) 18:55:20 ID:YevU/rPG >>319はウイルス。拡張子が怪しすぐる らき☆すた 27 sakura03.bbspink.com/test/read.cgi/ascii2d/1187586266/ 678 名前：デフォルトの名無しさん [2007/08/22(水) 21:56:37 ] >>676 標準モジュールに Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 679 名前：デフォルトの名無しさん [2007/08/22(水) 22:07:05 ] >>678 ありがとうございます。できました。 こんなテクあるんですね。勉強になりました。 680 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 22:08:37 ] >>657 オレも >>656 Timer関数 681 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 22:10:12 ] ↑誤爆 682 名前：デフォルトの名無しさん [2007/08/22(水) 22:39:11 ] 恐れ入ります、質問を失礼します。 Dim st4 As String Dim r1 As Range, st4 = Mid(r(1).Offset(2).Value, 5, 10) & "-" & Mid(r(1).Offset(3).Value, 2, 10) こんな感じで13-1とか2-9といったst4にしたいのですが、 -の後が空欄の時があります。 そういったときは13-のようになってしまいますが、 -の後が空欄の時は13といったように-も表示させたくないです。 こういったことは可能でしょうか？ 683 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 23:03:57 ] 可能です - は変数ハイフンに入れる　 Dim ハイフン As String 3個の文字列を無条件で＆で結合せず IFで条件分岐してから結合すればよい ハイフン = "-" If Mid(r(1).Offset(3).Value, 2, 10) = "" then ハイフン = "" st4 = Mid(r(1).Offset(2).Value, 5, 10) & ハイフン & Mid(r(1).Offset(3).Value, 2, 10) 684 名前：デフォルトの名無しさん [2007/08/22(水) 23:12:03 ] >>683 おお、できましたぁ！！ありがとうございます！！！ これでボクの仕事がかなり減りました、感謝です♪ 685 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 23:16:40 ] while ブロックで　breakって出来ないの？ 686 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 23:47:11 ] Exit使えよカス 687 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 23:53:55 ] か、かすう？ この俺様に向かって！ 688 名前：デフォルトの名無しさん [2007/08/23(木) 00:06:25 ] いつもお世話になります、１点質問を失礼します。無理やり上司から頼まれましたが、自分には無理難題です。 �@もし○○○○の後7文字全てが半角英数字だったら、このセルの5文字目〜半角スペースに当たるまでをコピー、「α」とする 例 ○○○○0120123456 ○ ↓ α=0120123456 ○○○○の後７文字に１文字でも全角文字が入っていたら、○○○○の一つ下の行の先頭から半角スペースに当たるまでを全てコピー「α」、さらに２つ下の行の先頭から「か」という文字に当たるまでをコピー、さらに○○○○から先の文字全てを繋げ「β」とする ○○○○あい12うえおあい 0120789123 ○○ Aか ↓ α=0123789123 β=Aあい12うえおあい できればifでやりたいんですが、 Dim α As String, β As String Dim r(1) as range '○○○○の行がr(1)とします If Mid(r(1).Value, 5, 7) = 全部半角英数字　Then 　α=Mid(r(1).Value, 5)から" "まで Else　α=r(1).Offset(1).の先頭から半角スペースに当たるまで全て 　　　β=r(1).Offset(2).の先頭から「か」に当たるまでをコピー＆Mid(r(1).Value, 5, 99) End　if すいません、自分ifの文に弱いものでかなり違うかもしれませんが、こんなマクロにしたいのです。宣言とかの理論は理解してます。お手数ですが、よろしくお願いします。 689 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 00:21:56 ] >>688 >>7文字全てが半角英数字 これって、記号類や半角カナはどうする？ とりあえず、半角・全角の判定だけでいいか？ それとも、英数字に限定？ 690 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 00:30:25 ] とりあえず、半角・全角の判定のやり方だけど、 VBAには文字列の長さを調べる関数が３つある。 Len()、LenB()、LenMbcs() の３つ。 Len()とLenMbcs()の結果が同じ→全部半角 Len()とLenMbcs()の結果が違う→全角を含む と判定できる。 ただし、LenMbcs()はVBAには実装されてなくて、自分で書かないといけない。 書き方はMSDNに紹介されてる。 office.microsoft.com/en-us/access/HA012288741033.aspx Function LenMbcs (ByVal str as String) 　　LenMbcs = LenB(StrConv(str, vbFromUnicode)) End Function LenMbcs()は、半角で1、全角で2を返す関数。 691 名前：デフォルトの名無しさん [2007/08/23(木) 00:35:39 ] >>689 失礼しました。 半角数字のみの時です、全角や記号や半角カナは×です。 692 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 00:50:08 ] 'とりあえず、文字列strが数字かどうか判定する関数。 もっと少ない行数の書き方もあるんだが、あえてわかりやすく書いてみた。 Function IsNumberString(str As String) As Boolean Dim i As Integer Dim c As String Const Number = "0123456789" For i = 1 To Len(str) c = Mid(str, i, 1) If InStr(1, Number, c, vbBinaryCompare) > 0 Then 'c が数字だったので何もしない Else 'c が数字ではなかった IsNumberString = False Exit Function End If Next i IsNumberString = True End Function 693 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 00:57:23 ] 'strの中にある半角スペースを探して、 'その手前までをコピーする関数。 Function LeftEx(str As String) As String Dim i As Integer i = InStr(1, str, " ", vbBinaryCompare) LeftEx = Left(str, i - 1) End Function 694 名前：デフォルトの名無しさん [2007/08/23(木) 21:25:50 ] 今週からエクセルを使う仕事に就いて昨日マクロにはじめて触れた 初心者で申し訳ないのですが ワークシートが2〜32まであり 各ワークシートのたとえばB5に以下のように入力したいのですが ワークシート2のB5に2007/8/1 ワークシート3のB5に2007/8/2 ： ワークシート32のB5に2007/8/31 For sht = 2 To 32 Worksheets(sht).Select Range("B5").Select ActiveCell.FormulaR1C1 = "8/1/2007" + （sht-2） Next sht End Sub これでは当然駄目でした。 今週末になれば自分で勉強しますが できれば明日使いたいので よろしければ教えてくださいませ何卒 695 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 22:03:21 ] 俺の都合に合わせて､即答しやがれ糞共!! ってわけですか まぁそういうこと言う奴でも､こういう簡単な質問は 答えたくてウズウズしてる教えたがり厨が答えてくれるだろうけどw 696 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 22:08:02 ] Microsoft Access VBAの質問もここでおｋ？ Accessのスレないんだものorz 697 名前：657 mailto:sage [2007/08/23(木) 22:45:14 ] >>675 失礼しました。 698 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 22:45:18 ] >>696 moug に逝った方がいいんじゃね？ 699 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 23:46:18 ] 質問させてください。 VBA使って簡単な画像処理をしたいのですが、 画像の輝度値を求める関数って無いのでしょうか？ よろしくお願いします。 700 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 00:31:35 ] >>695 わざわざ質問スレに出張ってきて こんな簡単な質問答えるやつは、 教えたがり厨だ!! ってわけですか？ 701 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 01:08:05 ] >>694 未テストだがこんな感じ Public Sub SheetLoop() Dim wksSheet As Worksheet Dim dtDate As Date Dim intOffset As Integer Dim strbuf As String dtDate = "2007/08/01" For Each wksSheet In ThisWorkbook.Worksheets strbuf = wksSheet.Name If 2 <= CInt(strbuf) And CInt(strbuf) <= 32 Then wksSheet.Cells(5.2).Value = Format$(dtDate + intOffset, "yyyy/mm/dd") intOffset = intOffset + 1 End If Next Set wksSheet = Nothing End Sub 702 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 01:24:03 ] >>701の注意点 シートの名称がイマイチ意味不明なのでとりあえずcintしたが、 これがSheet1とかのパターンが出てくると間違いなくエラーになるので、 isnumericで事前に回避するか、Sheet1系統でOKの場合は "Sheet"&カウントで文字列連結してstrcompで見てやる必要がある。 今後の注意点 ・1文字変数は使わない ・Activate,Select系は使わずオブジェクト経由でアクセスすること ・A1形式は極力使わない ・上記に伴いRangeを使う場面ではCellsで展開してから使用する ・セルに入れる値が日付や文字列や数値など、フォーマットが決まっている場合は 表示形式をNumberformatなどで事前に指定してやる 703 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 01:32:20 ] >>702 これって2月とかエラーにならね？ 普通にDateAdd使えば？ 704 名前：703 mailto:sage [2007/08/24(金) 01:33:57 ] うっは流し読みしすぎた >dtDate = "2007/08/01" で8月限定にしてんのか。すまん 705 名前：デフォルトの名無しさん [2007/08/24(金) 02:46:23 ] X軸の数値　Ｙ軸の数値 0 -1.5e-9 10 2.5e-8 20 4e-8 30 5e-7 40 6e-5 50 9e-3 のようなデータををＸ軸は普通、Y軸を対数にしてグラフ化しようとすると、 負の数を入力しようとしています。対数には負の数が入りませんとかエラーが 出ます。（それは当然分かります） 強行すると、この場合、Ｘ軸が0の場合を除いてグラフにしてくれます。 動作としてはそれで問題ないのですが、大量にグラフを作成しようとすると、 毎回エラーが出てうざったいのです。なんとかエラーメッセージを消去 して出なくしたいのですが、いい方法はないでしょうか。 706 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 02:53:19 ] >>705 事前に負の値を取り除く。 707 名前：705 [2007/08/24(金) 03:00:08 ] >>706 やはり、そういう感じでやるしかないのですか・・・ 今はABSで絶対値にして逃げてるのですが。 708 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 05:38:20 ] そもそも負の値をとりうるデータを対数変換するってデータ処理としてどうよ？ 709 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 07:38:02 ] >>707 それはおかしいだろう。対数を取りたいってことは負値はIllegalなんでないの? 或いは全体にオフセットを足すべきだったりはしない? 710 名前：デフォルトの名無しさん [2007/08/24(金) 11:13:05 ] EXCEL VBAでフォームを使用して、ユーザーに ファイルを選択してもらう仕組みを作りたいんですが可能でしょうか？ 「参照」ボタンを用意して、ユーザーがクリックすると フォルダ内のファイルが一覧表示されて、指定できるようなイメージです。 711 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 12:05:25 ] 出来ますよ 必要なコントロールを配置して > 「参照」ボタンを用意して、ユーザーがクリックすると > フォルダ内のファイルが一覧表示されて、指定できる をコードにすれば良いだけです 712 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 12:06:32 ] >>710 Dialogsオブジェクト 713 名前：710 mailto:sage [2007/08/24(金) 13:12:05 ] >>711,712 ありがとうございました！ ちょっと調べてみます！！ 714 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 22:40:24 ] "俺の関数"というファイルにあるテーブルをVlookupした値を加工するユーザー定義関数を、"俺の関数.xla"の標準モジュールに作成しました。 他のファイルから"俺の関数"アドインを有効にしてみましたが、利用できません。どうすればいいですか？ Public Function 俺の関数(key) fjFilename = "D:\Settings\俺\Application Data\Microsoft\AddIns\俺の関数.xla" 俺の関数 = WorksheetFunction.VLookup(key, Workbooks(fjFilename).Range("テーブル"), 2, 0)+1+2+3 End Function 715 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 10:10:50 ] >>710 Application.GetOpenFilename 716 名前：デフォルトの名無しさん [2007/08/26(日) 09:28:40 ] sv2.st-kamomo.com/loader/dat/file17227.42952.jpg ↑ 競馬の出走馬が並んだデータなのですが これをレースごとに他のシートにコピペすることはVBAで可能でしょうか？ ちなみにレース場所は毎回異なります。 717 名前：デフォルトの名無しさん [2007/08/26(日) 09:33:42 ] 可能 718 名前：デフォルトの名無しさん [2007/08/26(日) 09:34:33 ] >>717 可能だとするとどう命令すべきでしょうか？ 719 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 09:41:35 ] >>718 「やれ!」 720 名前：デフォルトの名無しさん [2007/08/26(日) 09:47:09 ] (･c_･` )ｿｯｶｰ 721 名前：716 [2007/08/26(日) 11:23:09 ] マクロではできましたが今週の競馬開催の場所が毎回変わりますから そこができないですね・・・ 722 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 11:50:17 ] 出来るけど､何か？ 君が出来ないなら努力不足 723 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 11:54:41 ] >これをレースごとに他のシートにコピペすることはVBAで可能でしょうか？ ↓ これをレースごとに他のシートにコピペすることはVBAで可能ですが、 どうやったらいいでしょうか？ 724 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 12:09:18 ] マクロまでできたらそのマクロをいじれ どういじればいいかは学べ 725 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 12:20:18 ] 手でコピペは出来るんでしょ。 レースごとに分割する基準は何？ それをマクロに書けばいいだけ。 726 名前：デフォルトの名無しさん [2007/08/26(日) 12:23:37 ] ＞レースごとに分割する基準 場所＋レース番号　　例)　札幌　９ または　馬番１〜大外枠 ・・・ 727 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 12:45:05 ] まずシートを作って Sheets.Add ActiveSheet.Name = 場所＋レース番号　　例)　札幌　９ あとは判るだろ 728 名前：デフォルトの名無しさん [2007/08/26(日) 12:53:39 ] >>727 いやそれは分かるんだけどさ 競馬って毎週「札幌」があるわけじゃないのよ １０箇所以上の場所から２つ３つあるわけで・・・ 729 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 13:04:45 ] 変数 ヘルプ これ以上書くことないな！ 730 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 14:25:56 ] VBAマスターするコツってありますか？ 反復演習・努力ですかね？ 731 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 14:29:24 ] そもそも何を持ってマスターしたと言えるのか 誰もわからない（あるいは人によってマスターの基準が大きく異なる）ので、 誰もマスターしたなんて言わない。 732 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 14:53:26 ] 初心者用の１冊をマスターしても実用性はないよな 733 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 16:24:13 ] 最初は初心者用の入門書のとおりに実際に動かしてみる。 （一週間程度） 次は、簡単なオリジナルのコードを沢山作る。その際 他人に質問しないで自力で検索したりヘルプを見たりする。←最も重要 同時にVBA掲示板を閲覧し自分のレベルにあった質問で勉強する。 未だ、自分で質問はしない方が良いと思う。 （一ヶ月程度〜数年以上） そのうち、ヘルプを見れば理解できるようになる。このレベルになれば 他人に質問しても相手に失礼じゃないと思う。 スクール行ったって資格は取れるかもしれないが実力がつくとは限らない。 やる気があれば独学で十分だとおもう。 734 名前：デフォルトの名無しさん [2007/08/26(日) 16:46:44 ] 俺の頭脳じゃ１００年経ってもできないっぽい 実現させるには達人に出会ってお金を出して作ってもらう他ないな・・・ 735 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 18:08:50 ] >>733 それ以前に、一般機能をひと通り理解してないと無理じゃない？ 736 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 18:14:25 ] 何を馬鹿なことを… 初心者用の本は斜め読み。 必要そうなとこだけを重点的に。 使いたいときだけさっと調べ（本屋、GOOOOOOOGLE） 出来そうじゃなかったらあきらめる。(どうしてもVBAでMSNメッセンジャー作りたいんです ><　) 737 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 18:26:56 ] VBA本は初心者本ばかりか上級者向けとされている本ですら、 変数の命名規則が不明(どころか明示すらしない)だとか、見やすいコーディングを 考えないとか、速度に触れていないとか、後始末を省略してるとか、コレクションとか クラスの使用法が全く記載されてないとか、そんなのばっかだから、その手の本の まんまのコーディングはあんまり業務としての実用性はない Excelレガシー問題ってこういう本の氾濫が大きいと思う 結局、リファレンスだけあればいいってことになる 738 名前：デフォルトの名無しさん [2007/08/26(日) 18:35:13 ] 初心者はプログラム自体にとっつきにくさと わかりづらさから飽きがきやすいので かなり偏った内容でも、とにかく楽しく、とにかく簡単で 実際にプログラミングしてみて動かせるような本が好ましい。 サンプルのついた本は腐るほどあるけど 一生使いもしないような題材だと萎えるから そこのとこも吟味してほしい。 739 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 18:40:28 ] だからこそ>>736なんだが。 それにね、途中で興味がなくなったらそれはそれでいいんだよ。 VBAは何かの手段であって目的じゃないはず。 C++やc#でもやればいいんだよ。 740 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 20:57:33 ] >>735 そうですね。 一般機能のIF関数やVLOOKUPを使いこなせない人は苦労しそうだね？ 741 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 21:36:12 ] 自分に降りかかる/手が出せる範囲の仕事で滞りなく使えること。 VB「A」なら、↑でマスターしたって言っていいでしょ。 ということは「自分の仕事でVBA使って自動化/効率化したいこと」が 最高の教材になるんじゃないか？ 職業プログラマの人は知らんけど。 もしそうなら別の言語マスターした方がよさそうだし。 742 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 21:43:30 ] VBAは簡単なのがいいね C言語に何度も挫折した俺でも使える VBにステップアップしようとしたけど.NET何たらになってて よくわからなくて結局VBAに戻ってきた 743 名前：デフォルトの名無しさん [2007/08/26(日) 22:12:14 ] With Worksheets(1).Range("a1:a500") Set c = .Find(2, lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = 5 Set d = Worksheets(2).Range("a1:a500").Find(2, lookin:=xlValues) Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With Loopんところでオブジェクトが無いとかって エラーになるんですけどなんでですか？ 途中で違うFindするとcの方のFindが無効になっちゃうのでしょうか？ 744 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 23:13:40 ] ちゃんと例外処理しろよ 745 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 23:22:45 ] Loop While Not c Is Nothing And c.Address <> firstAddress 両方評価してからアンドの評価するからアウト 746 名前：デフォルトの名無しさん mailto:sage [2007/08/27(月) 06:58:40 ] きたねーコードだな 747 名前：743 [2007/08/27(月) 09:52:45 ] >743ですが、Findのヘルプに載っている 使用例に下記一行を加えただけです。 Set d = Worksheets(2).Range("a1:a500").Find(2, lookin:=xlValues) この一行が無ければ、動きます。 この一行を追記しただけでエラーになる理由が知りたいです。 748 名前：デフォルトの名無しさん mailto:sage [2007/08/27(月) 12:55:18 ] なんで解らないのかが知りたいです。 749 名前：デフォルトの名無しさん mailto:sage [2007/08/27(月) 14:11:31 ] >>747 むしろヘルプをコピっただけで エラーになる俺に動く方法を教えてけれ >c.Value = 5 をコメントアウトしないと >Loop While Not c Is Nothing And c.Address <> firstAddress のところで cがNothingだから c.Addrssがエラーになる Loopのなかに If c Is Nothing Then Exit Do とか入れれば問題ないけど これってヘルプが間違ってんの？ それとも条件しだいでは問題ないの？ 750 名前：デフォルトの名無しさん mailto:sage [2007/08/27(月) 14:34:19 ] >>743 > Loopんところでオブジェクトが無いとかって > エラーになるんですけどなんでですか？ エラーメッセージを正確に書き写せばいいのに。 簡単な英語もわからないと不便だね。 751 名前：デフォルトの名無しさん mailto:sage [2007/08/27(月) 18:21:56 ] エラーって日本語だろ？ 752 名前：デフォルトの名無しさん [2007/08/27(月) 20:16:40 ] 屁理屈ばっかごねてるヴァカ 753 名前：デフォルトの名無しさん [2007/08/28(火) 20:15:47 ] Excelのオートフィルタ機能を関数で表したいと思うのですが可能でしょうか 教えて下さい 754 名前：デフォルトの名無しさん mailto:sage [2007/08/28(火) 22:05:01 ] ググレカス 755 名前：デフォルトの名無しさん mailto:sage [2007/08/28(火) 22:05:53 ] >>753 > 可能でしょうか お答えします､可能です やり方は自分で調べてください 756 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 09:31:53 ] これを日本語訳に直してもらえないでしょうか？ Sub TTT() Dim iR As Integer, iT As Integer, iK As Integer, iM As Integer For iR = 1 To Cells(1, "A").SpecialCells(xlLastCell).Row Select Case Cells(iR, "A") Case "高橋" iT = iT + 1 Sheets("高橋").Cells(iT, "A") = Cells(iR, "A") Sheets("高橋").Cells(iT, "B") = Cells(iR, "B") Case "亀井" iK = iK + 1 Sheets("亀井").Cells(iK, "A") = Cells(iR, "A") Sheets("亀井").Cells(iK, "B") = Cells(iR, "B") Case "道重" iM = iM + 1 Sheets("道重").Cells(iM, "A") = Cells(iR, "A") Sheets("道重").Cells(iM, "B") = Cells(iR, "B") End Select Next End Sub 757 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 09:38:03 ] 潜水艦TTT() 薄暗さ、不-、整数、それ、整数、整数としてのiK、不-、整数 セル(1、「A」).SpecialCells(xlLastCell)の.Rowの選んだケースセルへの不- =1、(不-、「A」) ケース"高橋" それ=それ、+1 シート("高橋").Cells、(それ、「A」) =セル(不-、「A」) シート("高橋").Cells、(それ、「B」) =セル、(不-、「B」) ケース"亀井" iK iK=+1 シート("亀井").Cells(iK、「A」)=セル(不-、「A」) シート("亀井").Cells(iK、「B」)=セル、(不-、「B」) ケース"道重" 不-=不-+1 シート("道重").Cells、(不-、「A」) =セル(不-、「A」) シート("道重").Cells、(不-、「B」) =セル、(不-、「B」)終わりは次の終わ りの潜水艦を選択します。 758 名前：デフォルトの名無しさん [2007/08/29(水) 10:27:52 ] 日本語になってねー 759 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 10:43:53 ] 逆に言えば元の756だって英語か何かになっていたかというと、そうではないということ。 それはVisual Basicという言語なのだから。 760 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 10:53:21 ] それ以前に756動作しないし？　俺も釣られた？ 761 名前：デフォルトの名無しさん [2007/08/29(水) 12:42:40 ] >>760 元々別のシートにあるデータをコピペする動作だからね マジで>>756どう構造か教えて欲しい TTT　というのは任意のタイトルだよね Dim iR As Integer　は整数型の変数の宣言だよね　 その後のTo Cells　とか　SpecialCells(xlLastCell).Row　とかが分からん 762 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 12:47:13 ] 元のワークシートから名前別のワークシートにＡ列とＢ列の値を転記してるだけやん 763 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 13:54:32 ] >>756 Cells プロパティの記述が変体的？ 764 名前：デフォルトの名無しさん [2007/08/29(水) 14:09:33 ] ダメだ全然ワカンネ VBAの初心者向きの本も理解できねぇ('A`) 765 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 14:33:56 ] ＶＢＡでプログラムを勉強しようとするのは無謀だな ＶＢの知識があってマクロ記録のソースから覚えれば早い 766 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 14:34:40 ] 初心者向きなのに解かりづらい本が多いからね。 　↓　こっちのサイトが私にはわかりやすい。 ttp://www6.plala.or.jp/MilkHouse/index.html 767 名前：デフォルトの名無しさん [2007/08/29(水) 14:50:44 ] VBAって今後どうするの？　フォーマットが公開されていないファイルは、 政府も使わないと言っている。2007でXMLも標準になったが、マクロが 仕込んであるのでは、公的には使えなくなるんじゃないのかな？ 768 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 16:13:18 ] > 政府も使わないと言っている。 騙されてる奴が多いが｢使わない｣とは言ってない 国のやるポーズには､必ず逃げ道仕込んでおくものさw 769 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 18:31:56 ] 通常VBA含んだExcelを他に配ったりしないんじゃないの？ 自分の仕事を効率化するために使ってる人が大部分じゃない？ 私は他人の作ったロックしたマクロを使ったことないし使うつもりも無い。 770 名前：デフォルトの名無しさん [2007/08/29(水) 21:34:34 ] 恐れ入ります、質問をお願いします。 会社でエクセルのマクロを使用していますが、困っています。 現状、共用ドライブにエクセルファイルを格納し、５人で使用しています。 使用する際は、それぞれ一人一人にパソコンが支給されており、支給された個人のパソコンから共用ドライブにアクセスし、入力 しています。 こういった状況で、マクロで入力する際、人の名前（入力者の名前）を自動的に取得、エクセル表の任意の場所に貼り付けすることはできないものでしょうか？ winXP　エクセル2000です。 771 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 21:57:06 ] 出来るんじゃないかな？ユーザー名を取得し履歴のように日時と一緒に書き込んだり 入力したセルのコメントに日時とユーザー名を記録する事も。 772 名前：デフォルトの名無しさん [2007/08/29(水) 23:05:23 ] EXCELでVBAでDLLを使う場合、 そのDLLをxlsファイル内に埋め込む方法はありませんか？ 773 名前：デフォルトの名無しさん [2007/08/29(水) 23:16:04 ] ActiveSheet.OLEObjects.Add( Filename:= "C:\Documents and Settings\Administrator\デスクトップ\xxx.dll", Link:=False, DisplayAsIcon:=False).Select これはxlsファイル内にdllを保存するということでいい？ このファイルを外部に保存するにはどうしたら・・・

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef