heno-_-のプロフィール

VBAです。 ユーザーフォーム上で、call xxxxxを使って呼び出したsubプログラムでの計算を 途中で終了させるために コマンドボタンにendを割り当てて使用しています。 ただ、この方法だとユーザーフォームも一緒に終了してしまうため、 また再度ユーザーフォームを呼び出す必要があります。 callで呼び出したsubプログラムだけを途中で終了させる方法を教えてください。

先ほど間違えてベストアンサーを出してしまったので連投失礼します。 エクセルでフォントサイズがバラバラな文字列が入ってるセルで置き換えをすると セル内のフォントサイズが統一されてしまいました フォントサイズを統一させずに置き換えする事は可能でしょうか？ ＶＢＡとかマクロをつかわなければならない時はできれば使い方を詳しくおしえて頂きたいです。

Excel VBAで末端までだと4万行くらいのデータを整理するものを組んで います。初心者ゆえどなたかお詳しい方の知恵を拝借いたしたく。 元となるデータは15行が一塊であるデータブロックで構成されており、 14行目には"END"の文字があり、15行目には必ず空白行があります。 この15行のデータブロックが延々4万行繰り返しの形で存在しています。 どのデータブロックか判別できる数字が入っているのは1行目のE列 です。 データブロック一行目E列に含まれる特定の語句(IDNo.)を検索し、これを 起点として空白行までの15行一塊のデータブロックをまとめて削除でき るものを作成しようと思ったのですが、一行ずつ削除するところまでしか 自力では分からず、これ以降どのように追記すれば良いか見当がつか ない状態です。よろしくお願いします。 元データ 　　　　A　　 　B　　　C　　　　D　　　　E　　　　　F　　　G 1　　　aaa　　 bbb　　ccc　　ddd　　 (IDNo.)　　fff　　ggg 2　　　111　　222　　333　　444　　　555　　　666　　777 （略） 14　END 15　(空白行) 16　　AAA　　BBB　　CCC　DDD　 (IDNo.)　FFF　GGG （略） 29　END 30　(空白行) 以下　検索したもの＋自分で追記してみた部分です。 Sub 特定ID削除() With ActiveWorkbook.ActiveSheet Const startrow As String = "1" '開始行を指定 Const col As String = "E" '識別文字が入力されている列 Dim Idx As Long Dim keyWord keyWord = Application.InputBox("削除対象の文字列を指定", Type:=2) If TypeName(keyWord) <> "Boolean" And Len(keyWord) > 0 Then For Idx = .Cells(65536, col).End(xlUp).Row To startrow Step -1 If InStr(.Cells(Idx, col).Value, keyWord) > 0 Then ' If Application.CountIf(Rows(Idx), "*" & keyWord & "*") > 0 Then .Rows(Idx).Delete End If Next Idx End If End With End Sub

困っております何卒宜しくお願いします。 シフト表をEXCELで作成しています。列に担当者と日付、行は二段で上段は午前、下段には午後で役割別に記号が入ります、この表から日毎の実績表を作成しています、行は二段なのでセルを結合し、解除して上段にまとめ他のシートにコピーしてあります。 そこで、お願いです、今はマクロ（たぶん）で展開していますがセルに構文が入っているため他の人が消してしうことがしばしばなのでVBA構文に直したいのです。 =IF(OR($A3="",B$1=2),"",IF(Sheet2!B3="","",Sheet2!B3&"/"&COUNTIF(Sheet2!B$3:B3,Sheet2!B3)))これは上段にまとめたシートから置き換える構文です。 この構文で出来たシートから日毎のシートを作成するのに =IF(ISERROR(INDEX(Sheet3!$A:$A,MATCH($B6&"/"&COUNTIF($B$6:$B6,$B6),Sheet3!B:B,0))),"",INDEX(Sheet3!$A:$A,MATCH($B6&"/"&COUNTIF($B$6:$B6,$B6),Sheet3!B:B,0)))を使っています。 この構文もお願いして使っているものであります。ワークシート関数でチャレンジしていますがうまくできません宜しくお願いいたします。

Sub test() Dim OLEList As Object Set OLEList = ActiveSheet.OLEObjects.Add( _ ClassType:="Forms.ListBox.1", _ Left:=1, _ Top:=1, _ Width:=80, _ Height:=80) End Sub このコードで作るリストボックスってOLEオブジェクトのリストボックスですよね？ リストボックスを作って、デザインビューにして右クリックをしてもプロパティが見つかりません。 手作業でコントロールツールボックスからリストボックスを挿入すると、 右クリックした時にプロパティがあります。 このＶＢＡコードで挿入するリストボックスは コントロールツールボックスから挿入するものとは別物ですか？ 画像は右側は、「手作業でコントロールツールボックスからリストボックスを挿入」で、 左側は上記のコードで挿入しました。