mindatgのプロフィール

エクセル2010を使用しています。 毎日配送表を印刷しているのですが、印刷範囲を一定のルールに基づいて変えているのですが、マクロなどにより自動化できないかと思い質問させていただきました。 条件は下記の通りです。 (1)印刷範囲はA列からQ列まで (2)行は日によって変化する (3)B列には1～5999までの数字が打ち込まれており、日によって「3999」まで「4999」までと変動あり (4)変動する最後の数字の行まで、A～Q列全てに情報が打ち込まれているが、それ以降の行、列ともに空白の状態 個人的にはB列の数字を基準として「B列が＜5999」までの範囲を「A～Q列まで」選択 といったようにできればイメージに近いものになるのかなぁと思っていますが、力不足でどうすればよいのか分かりません。 どなたか助けていただけないでしょうか？？

関数苦手です。宜しくお願いします。 セルA1からF5まで適当な数値が入っており、Ｂ1からF5までの中でセルA1に最も近く、A1よりも高い数値を選ばせたいです。同様なA1に最も近く、A1よりも低い数値を選ぶ式をお願いします。

配列の使い方について教えてください １つの配列をどんどん追加したりしたいので１つの mybox　で追加していきたいと思っています。 （下記コードが実現できればと思います。） (1)配列を広げ追加したい (2)繰返しを使わず一気に書き込みたい (3)一部をクリアしたりしたい のですがよろしくお願いします。 Sub Macro1() Range("A1").Value = "A" Range("A2").Value = "B" Range("A3").Value = "A" o = Range("A1").End(xlDown).Row mybox = Range(Cells(1, 1), Cells(o, 1)).Value 'myBox(1,1)=A 'myBox(2,1)=B 'myBox(3,1)=A ←このような表示になります。 '------------------------------------------------- '(1)配列を広げ追加したい ReDim Preserve mybox(o, 2) For i = 1 To UBound(mybox) If mybox(i, 1) = A Then mybox(i, 2) = 0 Else mybox(i, 2) = 1 End If Next i '------------------------------------------------- '(2)(1)をＣ列に「myBox(?,2)を「繰返しを使わず一気に」書き込みたい 'Transposeは限界（65536個）を超えるので使えません。 Range(Cells(1, 3), Cells(UBound(mybox), 3)) = mybox '(3)配列myBox(？,1)は残したままmyBox(？,2)はクリアにしたい End Sub

解像度ではなく モニタのサイズをVBAで取得することは可能ですか？ Declare Function GetSystemMetrics _ Lib "user32" _ (ByVal nIndex As Long) As Long Const SM_CXSCREEN As Long = 0 Const SM_CYSCREEN As Long = 1 Function myX() '画面の幅を取得 myX = GetSystemMetrics(SM_CXSCREEN) End Function Function myY() myY = GetSystemMetrics(SM_CYSCREEN) End Function で解像度は取得できますが、 モニタのサイズによって動きを変えたいため、サイズを取得したいです。 デスクトップPCにモニタを付けて使っています。

Ｅｘｃｅｌ２０１３のＶＢでＦＴ２４５を制御したいのですが、ＤＬＬの呼び出し方やその後の使い方などがわからず困っています。 制御したいのは秋月電子の「ＦＴ２４５ＲＬ ＵＳＢパラレル変換モジュール」です。 サンプルプログラムをダウンロードしたりしましたがエラーで使えなかったり、ＶＢ６で作られたものはそのままＥｘｃｅｌで動作しなかったりです。 パソコンはＷｉｎｄｏｗｓ８．１（６４ｂｉｔ）で、Ｅｘｃｅｌの指定のセル上に書き込んだ１バイトデータを、ＵＳＢを通してパソコンから出力し、パラレル８ビットで扱いたいのです。 今実験的に変換モジュールの出力ピンにＬＥＤを付けて、ＬＥＤを点灯させる回路を作ったのですが、パソコンからの操作方法がわからず止まっています。 どなたかお分かりになるかたいらっしゃいませんでしょうか。