Visual Basicのエラー
以下のプログラムで Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False の部分で「コピー領域と貼り付け領域の形が違うため、情報を貼り付けることができません。」というエラーが出てしまいます。 因みに、コピー元もコピー先も結合セルはありません。...
View ArticleVB.netでエクセルの区切りを使用したい
現在、VB.net(2003)で エクセルの区切りを使用しようと 思ってるのですが、 「オブジェクト変数または with ブロック変数が設定されていません」 というエラーが出てしまいます。 どなたかエラーの原因が分かる方 いませんか？ プログラムは、 Private xlapp As Excel.Application Private xlBook As Excel.Workbook Private...
View Article斜め長方形の変形
幾何はさっぱりでして。 斜めの長方形（ABCD）があります。 C点をC'点に任意移動させた時、長方形の形を保ったままで（AB'C'D'）を描画したいのです。 新しいB'、C'の座標点を求めるプログラム記述はどのようになるでしょうか？ CADのラバーバンドでの使用になるので、できれば少し高速なものを。 使用言語はDelphiですが、BasicでもCでもかまいません。 ヒントだけでも。よろしくお願いします。
View Article保存方法について
下記のコードでデータを指定範囲に保存できるようにしたのですが、これをG2のシリアル値と1月(G81)が同じなら1月の指定範囲(I85:CW135)に保存し2月(G142)と同じなら2月の指定範囲(I146:CW196)に保存するようにしたいのですが、If ElseIf を使うと実行せれません。 何か方法がありましたらお教え願えませんでしょうか？(尚入力データは、1行おき2列にあります。)...
View ArticleエクセルＶＢＡでサブルーチンへの変数の配列渡し
エクセルＶＢＡで、メインで使用してる配列変数（の値）をサブルーチンに渡したいが、どうすればよいでしょうか。（なお、メインプログラムは大きいためこれ以上は書けないのでサブルーチンを使用） よろしくお願いいたします。
View ArticleVBAでのグローバル宣言について
(たとえばですが) 標準モジュールに『DataBase』を作成し、 Public TEST(10) as string TEST(0) = "hogehoge" と宣言し、 『Module1』にて Range("A1").Value = TEST(0) と記載して実行しようとすると 『コンパイルエラー：プロシージャの外では無効です。』 と表示されます。 ⇒解決方法はありますでしょうか。...
View ArticleVS.net2012サービス参照時初回例外発生
VS.net2012でWebサービスを利用するプログラムを作成しようと思い、サービス参照の追加を行ったところ、コードは何も記述していないのですが、デバック開始をすると、下記の例外が発生します。 →型 'System.Runtime.InteropServices.COMException' の初回例外が...
View Articlevbaを使ってie内に文字をいれたい
vba初心者です。vbaで既に開いているIE（画面は一つだけ）の複数あるテキストボックス内に文字を入れたいと思います。うえから1番目、3番目、5番目にいれたいときどのように書けばいいでしょう?
View Articlevb.netのソフトを開発でレジストリ？
現在vb.net (visual studio 2010)でソフト（素人です。）を作成しています。ようやくインストーラまでたどりつきました。そこで質問です。よくベクターなどでソフトをダウンロードしたときに、 「アンインストールは，そのまま削除するのみです．レジストリ等は，一切変更していません．」 という断り書きを見ます。...
View ArticleVBAある期間がくると動かなくする
AccessのVBAで作ったアプリがあります。ある時点で仕様を大きく変更する為、ある時点がきたらアプリをダブルクリックしても動かないようにしたいと思っています。 理由として、ユーザーが間違って古いプログラムを動かして仕事をされると、業務に影響がある為、間違わないようにプログラムを動かせたくありません。...
View ArticleMicrosoft Visual Basicの事で
よくオークションで出ているのですが、 Microsoft Visual Basic 4.0はwindows7でも使えるのですか？ 買って使えなかったら勿体ないので質問しました。
View Articleaccessからテキストファイルをエクセルで開く
accessからテキストファイルを開いて、カンマや書式を設定して、そのテキストファイル名と同じ名前でエクセルとして保存したいのですが、うまくいきません。 教えてください。 設定したいのはこれです。 Array(Array(1, 1), Array(2, 1), _ Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1),...
View ArticleVB.NetでExcelシート削除
独学で、VB2010にてAccess、Excel連携のプログラムを組んでいます。 ある集計結果をExcelに代入してそのシートのみだけにして（その他集計シートがあります。） 別名ファイルでデスクトップへ保存するようにしたいです。 For Each～Nextで指定のシート名以外を削除するというコードを書いたつもりなのですが、うまく動作しません。 ご教授お願いします。...
View ArticleVB2010コンパイルエラーについて
VB2010コンパイルエラーについて サーバー更新のため以下のようなシステムの移行を行いたいのですが、 サーバ：WindowsServer2003 → WindowsServer2008R2 Oracle：Oracle10g → Oracle11gR2 VB：VB2005 → VB2010 サーバ構築までのあいだ、自分のPCでVBのコンパイルを 試したところ以下のようなエラーが出ています。...
View Articleエクセル VBA 特定文字がある行を別シートに移動
ソフト excel2003 Ｉ列（赤枠部分）に文字列が入力された表があります。 マクロ実行時下記のようにするには、VBAのコードをどのように記入すればよろしいでしょうか？ 『 △ 』ボタンをクリックすると シート１の赤枠内のセルに△が入力されている行を切り取りしシート2に貼り付け （下の行は上方向にシフト） 『 × 』ボタンをクリックすると...
View ArticleWorkSheet_Changeを2つ反映させる
下記のコードをWorkSheetで2つ反映させるにはどうしたらいいでしょうか？どちらか一つなら反映するのはわかりますが、どう名前を変更すればいいのかお教え願えませんでしょうか？ windows7・SP1 Office2010 Private Sub WorkSheet_Change(ByVal Target As Range) If Intersect(Target, Range("C1"))...
View ArticleVB.net Webサービスの呼出し方法について
現在、msdnの「10 行でズバリ!! Web サービスクライアントアプリケーションの開発 (VB)」を参考に、VB.net2010(Express)で、Webサービスを呼出すプログラムを作成しているのですが、どうもうまくいきません。 下記の手順で作成しているのですが、「Send メソッドを呼び出す前に、Path プロパティを設定してください。」のエラーになってしまいます。 １．プロジェクトの作成...
View Articleloopでファイル名を取得したい
loopでファイル名を取得して、テキストファイルをエクセルに保存していきたいのですが、 ↓ここ（StrFileName）でエラーになるのですが、どうしたらいいですか？ Workbooks.OpenText FileName:=StrFileName, Origin:=932, StartRow:= _ ---------------------------------------- Private...
View Articleエクセル VBA 特定文字がある行を別シートに移動
ソフト excel2003 o列に文字列が入力された表があります。 マクロ実行時下記のようにするには、VBAのコードをどのように記入すればよろしいでしょうか？ 赤枠で囲んだボタンをクリックすると シート１のO列に 中 が入力されている行を切り取りし中シートに貼り付け （下の行は上方向にシフト） ※ シート１の内容は日毎に更新されますので、更新後、赤枠で囲んだボタンをクリックするとその時点で 中...
View Article図形のクリアで入力規則の▼が消える
図形のクリアでG1の入力規則の▼まで一時的に消えてしまいます。コード文でShapesを 用いているのではないかと思いますが、▼で消去を回避する方法が ありましたらお教え願え ますでしょうか？ Windows7・SP1 Office2010 Sub 図形のクリア() Dim myRng As Range Dim sp As Variant Set myRng = Range("I10:CW60")...
View Article