ベストアンサー ※ ChatGPTを利用し、要約された質問です(原文:東芝マシニングでのマクロ2) 東芝マシニングでのマクロ2 2019/03/25 23:08 このQ&Aのポイント 東芝マシニングでのマクロ2についての質問です。WHILL(繰り返し)は、トスナックに存在するでしょうか?IF文の使い方について取説で見つけられなかったので、お知恵を拝借したいです。 東芝マシニングでのマクロ2 連続でごめんなさい 先日質問させていただいたマクロの件なんですが、WHILL(繰り返し)は、トスナックに存在するでのしょうか?じつはIF文は使っており取説で見つけられなかったのが、こちらでした。前回の回答者さま本当に申し訳ありません 毎日違うメーカーの機械を多台持ちで、混乱しておりそれがまた、楽しくて仕方なく休みの時まで考えております 宜しくご教授お願いいたします 質問の原文を閉じる 質問の原文を表示する みんなの回答 (3) 専門家の回答 質問者が選んだベストアンサー ベストアンサー Nakama1 ベストアンサー率36% (20/55) 2019/04/02 13:58 回答No.3 釈迦に説法でしたらスミマセン。投げっぱなしでは気持ち悪いので。 (私は電気屋なので加工に関してはまったくの素人です) リード指令型ヘリカル補間:G02 G03 選択された平面内の円弧と、その平面に垂直な軸の直線運動との3軸同時制御でヘリカル補間を行う。 G17平面の場合 G02(G03) Xx Yy Ii Jj Kk Ff Ll または G02(G03) Xx Yy Rr Kk Ff Ll (各アルファベットの小文字は数値です) K=円弧1回転あたりの垂直軸移動量(リード)を符号付きで指令 L=円弧終点を通る回数を指令、指令が無いときは1回、最大は9999 取説の内容をそのまま書くと 「円弧補間の指令に平面選択軸以外の任意の1軸の移動を加えるだけ」 とのことです。 ヘリカル補間のオプション機能が必要なことは当然ですが、同時制御軸数が3軸以上でないと使えません。 終点指令型ヘリカル補間というものもあるようです。 座標変換:G10 G11 TOSNUCでは座標変換という名称の機能で座標を回転させます。 回転平面はG17 G18 G19 で選択します。 G10(座標変換キャンセル) G17だった場合 G11 Ii Jj Kk または G11 Ii Jj Ee (各アルファベットの小文字は数値です) I=Xの回転中心座標(G18の場合はZ、G19の場合はY) J=Yの回転中心座標(G18の場合はX、G19の場合はZ) Kの場合=0.001deg Eの場合=0.00001deg 同じく、座標変換のオプション機能が入っていないと使えません。 1トンを超えるようなワークを加工することができるマシンでしたら、座標変換が使えても良さそうですけど。 タッチセンサで基準面を見て、角度のずれを計算させて、座標回転(変換)をさせるのが普通のような気もします。 このあたりは自動計測マクロと連動させるのが普通ですね。 なお手元にある説明書は TOSNUCでも最新機種のものですので 古い機種と記載内容に相違があるかもしれません。 新旧の機種で指令方法に違いがあるとは思えませんけど。 違っていたらスミマセン。 質問者 お礼 2019/04/03 08:14 お礼遅くなりすみません いつもご教授ありがとうございます 座標回転はxy平面のままで回転方向 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 その他の回答 (2) Nakama1 ベストアンサー率36% (20/55) 2019/03/27 12:37 回答No.2 ヘリカル補間にしても、座標回転にしても、機械の購入時の仕様により有無が決まっていると思いますが、どのような仕様だったのかが 今となってはわからないということでしょうか。 私は加工のプログラミングに関しては素人なので 何とも言えませんが、とりあえず指令してみては如何でしょう。 使えなければアラームになるかと思いますが。 ワークが大きいので、そのくらいのモノを加工できるマシンなら 座標回転は使えそうな気もします。ワークの芯出しに苦労することは、想定されていると思いますが、それは私の勝手な想像です。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 Nakama1 ベストアンサー率36% (20/55) 2019/03/26 12:12 回答No.1 お呼びのようなので。 >楽しくて仕方なく休みの時まで考えて マクロを作り出すと凝りますよね。若いころなら私もそうでしたが 今ではイヤです(笑) マクロはセンスも問われますし、他人が作ったマクロは解読が大変なので 後に続く後輩に、作った人の考えがわかるようにして欲しいものです。 WHILE文、繰り返しですが TOSNUCには無いようです。 プログラミング説明書のマクロ機能編を見てますが、無いみたいですね。 ですが、条件によるジャンプ先(判断命令)をどうするかをやっているだけなので、その応用となるかと思います。 思いつくのは、GOで前ブロックへ飛ばして 何回も判断文を実行することかと。 条件が揃ったら、目的のブロックへ飛ばすか 次のブロックへ進ませる。 繰り返しの場合、GOで飛ばすとなると その実行ブロックの前に飛びたいということになります。 TOSNUCで仮に、 [GO,100] とした指令した場合、このGOのブロックの後にN100のシーケンス番号のブロックが無いと、アラームとなります。 ではどうするかと言うと [GO,-100] とします。 飛び先N100が実行ブロックの前の場合は、負の値(マイナス)とします。 ヒントになれば幸いです。 質問者 お礼 2019/03/26 21:43 Nakama1先生 毎度ありがとうございます 繰り返しは試行錯誤しながら何とかやっておりました。 例えば6面幅の加工で5mmずつ削り Z方向だけG91でZ-5.それを条件つけて 例えばZ-60まで繰り返すプログラムを使用しています 簡単な物ならすぐ作れますが、ヘリカルなどになると頭が混乱するので、まだ作れておりません(笑)もう1つだけ教えていただきたいのですが、座標回転は横型マシニングにはあるのでしょうか?現在はポート面などの基準となる面をピックテスターで0を出し加工を行っていますが 丸状の1トン越えるような化物は回転させるのも一苦労で時間もかかってしまっております テーブルの回転方向なら良いのですが テーブルにVブロックを置いて主軸に対して平行に回転させる時が億劫で、あほにならないと出来ません(笑)スマホ入力なので短文で恐縮ですが回答頂けると嬉しく思います 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ [技術者向] 製造業・ものづくり機械加工マシニングセンター 関連するQ&A 東芝マシニングでのマクロ FANUCマクロにあるIF文はトスナックには存在するのでしょうか?機械が古すぎるのか取説にも見つけられませんでした。GO文 条件分岐 は使えました FANUCで使用している ヘリカルやトロコイド等が使用できたらなーと思ってます 詳しい方ご教授願います FANUCは人生の半分以上 トスナック3年の初心者です とほほのエクセルマクロ 以下の文の[-1899]の部分を可変型にしたいのですが。 どなたかご存知有りませんか? ActiveCell.FormulaR1C1 = "=COUNTIF(R[-1899]C:R[-1]C,""いっしょだよ"")" ==================================== マクロの説明です。 ==================================== エクセルマクロでsheet1にデータを入力していって、 sheet1のD列内に同一のコードがないかをチェックするために sheet1のコピーを作成してD列でソートしてから D列の1行目=2行目ならK列に”いっしょだよ”という メッセージを出すようにIF文を書きこんでいきます。 最後にこの”いっしょだよ”というメッセージが何件あったかを見たいので、 一番下の行+1行目に ActiveCell.FormulaR1C1 = "=COUNTIF(R[-1899]C:R[-1]C,""いっしょだよ"")" という文を入れたのですがこれだと自分が居る一つ上のセルから 1899上までしか行かないのですが、毎回データを入力して行数は増えていってしまいます。 どのような、文にしたらよいのか教えてください。 お願いいたします。 EXCELデータの連続印刷マクロ すみません。先日も質問したのですが添付のような印刷フォームに元データからデータを抽出して連続印刷をかけたいのですが印刷フォームは定型文になっており、1枚で提出になっている為、 元データが1000件近くあるので、都度印刷することが厳しい状況になっています。 印刷フォームにデータを取り込んで10件づつ印刷をするマクロかVBAをしたいのですがなかなかうまくいきません。 何か方法があれば教えて下さい。 添付のピンクの部分が元データから抽出する内容です。登録番号はすべて同じで1~10にデータを入力します。 全部で1000件近い人数分があります。 製造業のDX化は可能? ~図面管理とデータ活用の最適解~ OKWAVE コラム 「for next」文と「if then else」文 両方とも「くり返し」をさせるものですけど、 for nextにできてif then elseにできないことって ありますでしょうか? 僕は無いと思うのです。 その理由は for next文は等差数列に関係したくり返しをさせるものであり if then else文は等差数列とは関係の無い繰り返しもできるし、等差数列に関係あるくり返しもできるからです。 for nextの「等差数列に関係のあるくり返し」とは 例えば for i=1 to 100 step 2 のような場合、 これは、初項1、公差2、末項100 の等差数列を用意したことを意味しますよね? つまりfor next文では「等差数列を使ったくり返し」しか出来ないのに対し、 if then else文は等差数列に関係なく、「一般的なくり返し」が出来るものだと思うのです。 つまり、for next文は存在理由が無いと思うのです。 こういう理解であっていますでしょうか? よろしくおねがいします。 エクセルマクロ文で複数の数字で連続検索する方法 このマクロ文は、"1487"を連続検索するものですが この単体"1487"を複数の数字(たとえばRange("K"&i)み たいな?K2からK24にはランダムな数が入力されていると して)で連続検索するというふうにできないものでしょ うか? Set out = Range("A2:J111").Find("1487") If Not out Is Nothing Then igo = out.Address End If Do While Not out Is Nothing out.Font.Color = 255 Set out = Range("A2:J111").FindNext(out) If igo = out.Address Then Exit Do End If Loop End Sub エクセルマクロについて助言下さい。 エクセルマクロについて助言下さい。 ★やりたい事 シート名を指定しアクティブにする BOOOKに複数のセルがあり、シート名は日付(1・2など) 但し、必ず連続ではなく1~31までのシートが存在します。 現在のマクロ↓ シート名を取得し関数で指定のシートが存在するか確認しています。 作業シートのC1セルが0で指定シートなし 0でないで指定シートあり(処理開始)としてます。 作業2のI3セルに日付データがあります。 Sub 抽出() 'シート名を取得する Sheets("作業").Select Dim i As Integer Dim mySheetCnt As Integer Dim mySheetNam As String mySheetCnt = ThisWorkbook.Sheets.Count For i = 1 To mySheetCnt mySheetNam = Sheets(i).Name Sheets("作業").Cells(i, 1) = mySheetNam Next i Range("A1").Select If ActiveCell.Value = "" Then 'A1が空白の場合の処理 MsgBox "指定の日付のシートが存在しません" Exit Sub End If Sheets("作業").Select Range("C1").Select If ActiveCell.Value = 0 Then 'C1が0の場合の処理 MsgBox "指定の日付のシートが存在しません" Exit Sub End If Sheets("作業2").Select Range("I3").Select Sheets(ActiveCell.alue).Select End Sub このコードだと3と指定すると左から3枚目にあるシートが選択されます。 3枚目ではなくシート名が 3 を選択したいのです。。 分かりにく説明で申し訳ありませんが、教えてください。 宇宙は無限次元完全連続体である。 宇宙連続体仮説 この宇宙空間のあらゆる一粒一粒の中には、実は我々が見ている宇宙と変わらない広大な世界が広がっているのである。 つまり宇宙は完全連続体なのである。 この宇宙は完全連続体であるゆえ、この宇宙には実はスケールの違いというものは本来存在しないのである。 この宇宙は完全連続体であるゆえ、この宇宙には実はミクロもマクロもないのである。 それゆえ我々の知る宇宙自体は完全連続体宇宙の中の一粒に過ぎないのであり、また我々が見る1滴の雫の中には実は我々が見ているこの宇宙と変わらない広大な宇宙が広がっているのである。 宇宙は完全連続体なのであり、同時に無限次元なのである。 万物の根源、宇宙の法則、アルケーの意図の下に宇宙は無限次元完全連続体として存在しているのである。 検索後、行を抽出するマクロ 2 はじめまして マクロ初心者です、自分で出来ませんのでやりたいことに合うマクロをネットで探してやっておりますが、どうにもなりませんどなたかご教授お願いします。 下記のマクロで結果はOKなのですが、インプットボックスでは無く特定のセル(”A1”)の値から検索したいのです、また、結果の出る("Sheet2") を1回全てクリアにしてから結果が出る様にしたいのですが、どなたかご教授お願いします。 >Sub test01() >Dim ws1 As Worksheet, ws2 As Worksheet >Dim rng As Range Dim myStr, ra, rr myStr = InputBox("検索する文字", " (´^∇^)σ 入力してください", "") If myStr = "" Then MsgBox "検索文字未指定", vbCritical, " Σ( ̄ロ ̄lll)" Exit Sub End If Set ws1 = Sheets("Sheet1") '検索 シート Set ws2 = Sheets("Sheet2") '貼付先シート With ws1.Columns("A") '部分一致で検索(A列) Set rng = .Find(What:=myStr, LookAt:=xlPart, After:=.Cells(.Cells.Count)) If rng Is Nothing Then 'なかったら MsgBox "ありません", vbCritical, myStr & "? ( ̄~ ̄;)う~ん " Else 'あったら ra = rng.Address '最初に見つかったセルアドレス Do rr = rr + 1 'カウント rng.EntireRow.Copy Destination:=ws2.Cells(rr, 1) '行のコピペ Set rng = .FindNext(rng) '連続検索 Loop While rng.Address <> ra '繰り返し Set rng = Nothing End If End With MsgBox rr & "件をSheet2に抽出しました。", vbInformation, " ( ̄ー ̄)v" Set ws1 = Nothing Set ws2 = Nothing End Sub エクセルで複数文字列を一括検索してマクロで表示。 件名どおりなのですが、エクセルで7000程度の文字列から20程度を マクロで一括検索して別のセルかシートに表示させたいのです。 参考にした作業は以下の回答例。 http://okwave.jp/qa/q4859029.html ==以下、コピペ=== No.2 回答日時:2009/04/07 10:13 . 複雑ではないマクロはどうでしょう? A1セルからA50セルまでの各セルにそれぞれ検索したい文字があるとします。 検索したい範囲を選択した上で下記のマクロを実行してみてください。 Sub 連続検索() For Each r In Range("A1:A50") '指定の各検索文字につき Set c = Selection.Find(What:=r.Value, LookAt:=xlPart) '選択範囲を検索 If Not c Is Nothing Then 'あったら fAd = c.Address 'セル番地を控える Do '繰り返す i = i + 1 'カウント c.Interior.ColorIndex = 8 'セル着色 Set c = Selection.FindNext(c) '連続検索 Loop Until c.Address = fAd '一巡するまで'繰り返し End If Next r '次の検索文字で繰り返す Set c = Nothing MsgBox i & "件を発見しました。", vbInformation, " ( ̄ー ̄)v" End Sub ==ここまで=== 上記のマクロで複数の文字列を一括検索ができますが、 この場合は「対象の文字列」を色付けするだけです。 7000程度の文字列があると、スクロールして色の付いた文字列を探すだけでも 結構な時間がかかります。 これをベースに別のセルまたはシートに抽出した文字列をピックアップして 表示させるにはどのような追加がマクロに必要か、教えてください。 当方、エクセル2000を使用しております。 上記のマクロは動作しています。 宜しくお願い致します。 No.44314 マクロで小刻みに加工すると工… No.44314 マクロで小刻みに加工すると工具がスムーズに動かない に関して、 お疲れ様です。 No.44314 マクロで小刻みに加工すると工具がスムーズに動かない に関して、 投稿者である“ちょっぴぃ”評価はでています。 小生は、 > マクロで円弧加工を1度刻みで作り回転数を上げ送りもF800くらいにすると工具がスムーズ > に動かなく、送りもだいぶ落ちます。実際送りを落としたりして加工していましたがマシニング > の性能の問題でしょうか? の“マシニングの性能の問題でしょうか?”で記載を見送りましたが、気になる内容があり 質問をすることにしました。 結論は、古いCNC装置なので演算処理が間に合わないことが主で原因となっています。 これには、異論はありませんが、副因として以下の内容もあると思いますが如何でしょうか? URLに示す“工作機械のスティックスリップ現象”です。 古いCNC装置なので演算処理が間に合わないことが主原因で、指令に時間がかかり低速になる。 これは、動いては止まり、動いては止まりの繰り返しで、低速になっていると想像します。 すると、 ? URLのような摺動抵抗の変化要因で、加工すると工具がスムーズに動かなくなる ? 加工する工具の切削抵抗も似た現象になり、更に工具がスムーズに動かなくなる ? アクチュエータであるサーボモータも低速回転域で回転と停止を繰り返しとなっている サーボモータは、低速回転域のトルクも定格トルクに近いが、やはり減少はする理由 サーボモータの起動トルクや切削開始時のトルクは、頻度が少ないので瞬時最大(短時間使用) トルクを使用することにより、工作機摺動抵抗や切削開始抵抗の増大はカバーできるが、当該 使用の場合は回転と停止の繰り返しとなるため、瞬時最大トルクの1/3程度である定格トルクにて 回転と停止の繰り返しをするため、負荷変動に対するトルクが小さくなる理由 で、加工すると工具がスムーズに動かなくなる 以上が、メカニズムで工作機特にサーボモータユニットに問題が生じる危険があるのではない でしょうか? > 一度でも機械を操作してみれば分かるのだが での見解は、既に元の質問で記載されております。 サーボモータを使用しての機械設計や電気設計をしたことがある方なら分かる内容の見解も 求めているのです。 (サーボモータを使用しての機械設計や電気設計をしたことがある立場として) 宜しくお願いします。 http://www.nttd-es.co.jp/products/e-learning/e-trainer/trial/nc/nc_arch.htm ↑ 2点を円弧で移動するのが円弧補間 過去レコ大のAKBの件やチェック弁の件みたいに熱くならないで、冷静に確認をお願いします。 一人を除いたアプローチ記載ありがとうございます。 大変参考になりました。 工作機械のスティックスリップ現象 スティックスリップ現象とリップパッキンによる防止策(アクチュエータと負荷に関しての考察のみ参照) http://www.juntsu.co.jp/qa/qa1502.html http://www.juntsu.co.jp/qa/qa2018.html 画像の大きさとサイズ デジカメ(富士FinePix4500)を使用して6年ほどになります。 機械に疎いせいか、取説を読まないタチのせいか、2年ほど前に初めてマクロ撮影が出来ることも知りました^^; と、これは余談でしたが、実はデジカメで撮った画像をPCに取り込み、サイズを変更しますよね。 ブログに載せるのに横を750ピクセルにした大きさがベストなもので、必ずそうしているんですが、その場合、大きさ750×562は同じなのに、サイズがマチマチになります。 これがとても不思議で・・・ 90KBもあれば220KBもあるんです。 初歩的かもしれませんが、これは何故なのですか? プログラミングお願いします(JAVA) キーボードより数値データを10件連続入力し、そのデータの平均値を求め、その平均値より大 きな値のみを1行で連続出力するプログラムを作成しなさい。平均値の小数点以下は切り捨てでかま いません。できたら配列を使い、for文やif文を使って簡単にお願いします 数値1> 81 数値2> -12 数値3> -3 数値4> 12 数値5> 16 数値6> 65 数値7> -45 数値8> 2 数値9> -74 数値10> 55 平均値 : 9 81 12 16 65 55 スマホは修理できる?画面割れ・バッテリー交換・自作の限界 OKWAVE コラム エクセルマクロ文で、赤文字セルは保持、黒のセル文字削除する方法 For Each rng In Range("G2:G25") If rng.Value <> "" Then Set out = Range("A2:E111").Find(rng.Value) If Not out Is Nothing Then igo = out.Address End If Do While Not out Is Nothing out.Font.ColorIndex = 3 Set out = Range("A2:E111").FindNext(out) If igo = out.Address Then Exit Do End If Loop End If Next このマクロ文は、連続検索し、一致するすべて文字を赤色にするものです。赤文字セルは保持、黒のセル文字を削除する方法を教えてくれませんか? マクロでの可視セルのコピー&ペーストについて いつもお世話になってます。 マクロに関してですが、 見えているセル(可視セル)のみコピー&ペーストをする方法についての質問です。 請求書を連続印刷するマクロを質問させていただいたことがありまして。 (http://okwave.jp/qa/q6948578.html) 色々ありまして現在この形で使用しています。 Sub sample() Dim lastrow As Long Dim i As Long Dim hassou_column As Integer hassou_column = Range("W3").Column '条件項目のある列を指定(発送列) '「発送」列の最終行を取得 lastrow = Range("W3").End(xlDown).Row For i = 4 To lastrow If Cells(i, hassou_column) = "●" Then Call mySeikyusyoPrint(i) End If Next i MsgBox "実行しました" End Sub Sub mySeikyusyoPrint(ByVal rowNum As Long) Dim koumoku(24) As String Dim j As Integer Sheets("売上").Select '「売上」側の処理 For j = 1 To 24 koumoku(j) = Cells(rowNum, j) Next j '「請」側の処理 Sheets("請").Select For j = 1 To 24 Cells(1, j) = koumoku(j) Next j ActiveWindow.SelectedSheets.PrintOut From:=2, To:=32766, Copies:=1 Sheets("売上").Select End Sub 「売上」「請」の2つシートがあり、「売上」のW列において●があるところを判定し、 ●があるところだけ連続印刷していくという仕様になっています。 「売上シート」の1行目コピー→「請」シート1行目に貼り付け→印刷→ 「売上シート」の次の行をコピー→「請」シート1行目に貼り付け→印刷 という繰り返しになっています。 「売上」シートには非表示列が存在しまして。 現在は非表示部分を削除して使用していますが、本来は消したくないという事もあり 今回このマクロに「可視セル」だけコピー&ペーストさせるにはどうすればいいか、 という話になり、その点でつまずきまして質問をさせていただきました。 何度か修正を加えたのですがうまくいかず。 可視セルと言うと Selection.SpecialCells(xlCellTypeVisible).Select で、可視セルを選択して、という流れかと思います。 しかし勉強不足以外の何物でもないのですが、結局わからず。 上記のマクロを修正でも全く別の形でも構いませんので、 皆様の知恵をお借しいただけないでしょうか。 いつも申し訳ございません。何卒よろしくお願い致します。 関数などを使って割合の円グラフを自動で作る方法 桁に数千パターンの文字列が入っています。(具体的には郵便番号なんですが) 全体の何%をどこの郵便番号が占めているか関数を使い出したいです。 これが分かると他の集計にも使えて便利だなと思い、調べてたんですが、 どうにも完全に自動で数える方法が分かりませんでした。 IF文のネストをして、カウントを分岐させようとしましたがうまく行きませんでした。 for文のように、繰り返しの途中で自分の好きな関数や条件分岐を使えないと これは解決できないのではと思いました。 数式バーに入れる関数に限らず マクロで解決する方法でも良いので教えてください。 プログラミングは、JSとPHPが分かります。 VBA カッコの有無で処理を分岐 フォルダー名の変名をマクロで行っています。 変名前のフォルダー名に西暦が含まれるケースで カッコ付きとカッコ無しがあります。 例えば、 (1995)と1995 カッコは半角の場合がほとんどですが、稀に全角の場合も存在します。 カッコの有無でIF文などで処理を分岐したいのですが どのように判別コード(式)になりますか ? マクロでキーワードを抽出して別のシートに挿入する 質問番号:4733370の質問と回答を勝手に引用させて頂きます。 セルA列にキーワードCCCが含まれていた場合に その行を削除してSheet2に貼り付けする・・・という下のマクロを 貼り付けの部分を挿入に変更したいのですが、なにぶんマクロ初心者 の為よくわからないので教えていただけないでしょうか・・ 宜しくお願い致します。 Sub キーワード切取貼付02() Dim r As Range, ur As Range, rr As Long Dim rd(), v Set r = Range("A1", Range("A65536").End(xlUp)).Find(What:="CCC", LookAt:=xlPart, After:=Range("A65536").End(xlUp)) If r Is Nothing Then 'なかったら MsgBox "ありません", vbCritical, "? ( ̄~ ̄;)う~ん " Exit Sub '終了 Else 'あったら Do Until r Is Nothing '対象がなくなるまで ReDim Preserve rd(rr) '動的配列を用意 rd(rr) = r.Address(0, 0) '対象セルアドレスを配列に格納 rr = rr + 1 'カウント r.EntireRow.Cut Destination:=Sheets("Sheet2").Cells(rr, 1) '行の切り取り貼り付け Set r = Range("A1", Range("A65536").End(xlUp)).FindNext(r) '連続検索 Loop '繰り返し For Each v In rd() '各配列要素を If ur Is Nothing Then Set ur = Range(v) Else Set ur = Union(Range(v), ur) 'ユニオンに End If Next v ur.EntireRow.Delete 'ユニオンセルの属す行を一括削除 Set ur = Nothing Set r = Nothing End If MsgBox rr & "件をSheet2に移動しました。", vbInformation, " ( ̄ー ̄)v" End Sub チャレンジ五年生 前回質問したものです。 ベネッセから教えていただけないというのはうすうす感じていました。 だから、あえてここで受講している方で何とか教えてくださる方がいないかなと思い、投稿しました。 娘が、とても困っています。もし、受講してらっしゃる方がいましたら教えていただけないでしょうか? 無理を承知でよろしくお願いいたします。 前回記載文 こんにちは。実はチャレンジの付録のパスワードについて困っています。 うちの娘は先月までチャレンジ五年生を受講していました。しかし、すぐ上の娘が昨年同じものを受講していたので、あまりにも内容が似通っているという理由で、先月退会しました。 しかし、4月号についてきた機械のパスワードがないと機械自体が先に進めず困ると言って嘆いています。 親としては機械だけでも使わせてあげたいのですが、パスワードが分かりません。 お友達に聞こうと思っても、実は娘は四年生のため実際チャレンジ五年生をとっているお友達がいません。 もし、どなたか今月号のパスワードをお知りの方がいらっしゃいましたらパスワードだけで結構ですので教えてください。 パスワードは、問題が載っている教材に記載されているそうです。よろしくお願いいたします。 不規則?な刑務官の彼 刑務官の彼とお付き合いしているのですが、彼はドタキャンが多くて困っています・・・。 「非常招集があった」「明日の休みは当直になって、会えなくなった。本当ごめんね」などなど・・・ 連続3回もドタキャンされると、辛くなってしまいます。 それを彼に伝えると「この仕事はどうしてもしょうがないんだ。本当にごめん。 ドタキャンは悪いと思ってるよ。今後はこんなことがないように、 会う日にちを決めるのはやめて、会える時にあおうよ。」 と言われました。 彼の仕事は当直があって、不規則とは分かっていましたが、 あまりにも“休みの日が急きょ仕事になった”とか “非番だったけど仕事になっちゃって、5連勤だった”とか “明日やすみになったんだけど、会えないかな?”などあって、 そこまで不規則なのか?少し疑問です。。 (周りの友達は、公務員が5連勤なんてありえないよ、都合いいんじゃないの?と言います・・・) 最初は、「(私が土日休みなので)土日休みもあるから大丈夫だよ」 「旅行とか1泊2日くらいでいろんなところ行こうよ」など言っていた彼ですが、 つきあって4ヶ月目の現在では、 彼のことを“気まぐれな友達”程度に考えないと、 私のモヤモヤが抑えきれなくなりそうで不安です・・・。 警察官や消防士さんのように、 刑務官という仕事も、シフト通りにならない不規則な仕事なんでしょうか? ぶしつけな質問ですが、ご存知のかた教えてほしいです。 よろしくお願いいたします。 O9000番台の作成方法 いつもお世話になっております。 パラメーター関連での質問なんですが、マクロプログラムをGコードに変えたいのですが、ファナックの取説を見るとO9000=NO250(番号が違うかもしれませんが)のパラメーターにG100~に指定できると書いてあったので、書き込もうと思い9000番台のプログラムを作成しようと思ったら、作成ができないです。メーカー指定で9000番台は書き込めないとは聞いた言はありますが、前の会社でいっぱいオリジナルGコードがあった記憶もあり・・・。それで、9000番台のプログラムを作成できる方法はあるのでしょうか?若しくは、9000番台でなくても、マクロ文をGコード、Mコードにするにはどうしたらいいのでしょうか?すいませんが、ご指導の程よろしくおねがいします。ちなみに機械は森精機MV40mです。 注目のQ&A 「You」や「I」が入った曲といえば? Part2 結婚について考えていない大学生の彼氏について 関東の方に聞きたいです 大阪万博について 駅の清涼飲料水自販機 不倫の慰謝料の請求について 新型コロナウイルスがもたらした功績について教えて 旧姓を使う理由。 回復メディアの保存方法 好きな人を諦める方法 小諸市(長野県)在住でスキーやスノボをする方の用具 カテゴリ [技術者向] 製造業・ものづくり 機械加工 マシニングセンターワイヤーカット旋盤切削研削・研磨その他(機械加工) カテゴリ一覧を見る OKWAVE コラム 突然のトラブル?プリンター・メール・LINE編 携帯料金を賢く見直す!格安SIMと端末選びのポイントは? 友達って必要?友情って何だろう 大震災時の現実とは?私たちができる備え 「結婚相談所は恥ずかしい」は時代遅れ!負け組の誤解と出会いの掴み方 あなたにピッタリな商品が見つかる! OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
お礼
お礼遅くなりすみません いつもご教授ありがとうございます 座標回転はxy平面のままで回転方向