[技術者向] コンピューター

法人でPC管理している方への質問です。 会社で50台前後のPCを管理していて、初期設定など行っています。 今までは最初の設定時にローカルアカウントを作り 一つのmicrosoftアカウントにログインしてoffice製品をダウンロード後、microsoftアカウント内からそのPCの情報を削除して使っていました。 （なぜ削除するかというと、同一アカウントだからかあらゆる同期をオフにしていてもお気に入りなどが別PCに勝手に同期される現象が起きる） しかし、最近はmicrosoftアカウントは必須のようで、ひと手間加えないと初期設定時からローカルアカウントを作るのすら難しくなっています。 ですが、世の皆様は50人分のPCがあったら50個アカウントを作って管理しているのでしょうか・・。 社員は日ごろPCを使って業務しているのにかかわらず、microsoftアカウントの存在どころかメールの操作もおぼつかないような人が多くいる環境です。 社員個人にアカウントの管理を任すのは到底できず、かといってこのままローカルアカウントでPC設定→同一のmicrosoftアカウントからofficeをインストールという流れはもう古いのではないかと感じています。 皆様はどう管理しているのかが知りたいです。 よろしくお願いします。

CSSまったくの素人です。 こちらのサイトからコピペした https://jajaaan.co.jp/css/css-headline/ 上下線グラデーションの見出しの文字の大きさを変更したいのですが 方法がわかりません。 HTML <h3>CSS見出しデザイン</h3> CSS h3 { position: relative; padding: 1.5rem 2rem; color: #000000; text-shadow: 0px 15px 10px #ff8c04; -webkit-box-shadow: 0 2px 14px rgba(0, 0, 0, .1); box-shadow: 0 2px 14px rgba(0, 0, 0, .1); } h3:before, h3:after { position: absolute; left: 0; width: 100%; height: 4px; content: ''; background-image: -webkit-linear-gradient(315deg, #704308 0%, #ffce08 40%, #e1ce08 60%, #704308 100%); background-image: linear-gradient(135deg, #704308 0%, #ffce08 40%, #e1ce08 60%, #704308 100%); } h3:before { top: 0; } h3:after { bottom: 0; } font-size:をどこへ記載すれば良いのでしょうか？ よろしくお願いいたします。

mac10.5.8のときの天気マークがwindows11になってからは違う天気マークになってしまったのですが、どうすれば古いバージョンの天気マークを入力できますか。 この天気マークを入力したいのですが、 https://chie-pctr.c.yimg.jp/dk/iwiz-chie/ans-101305162?w=999&h=999&up=0 windows11になってからは形が違う天気マークが出ます。wordに入力すると雨マークは傘が斜めになったりです。☀☁☂

Excel請求書から出力したPDFファイルをメールソフトのThunderbirdでメールに添付して送信したいのですが、 添付ファイルのパスが間違っているのか「＊＊＊.pdfファイルが存在しないためメッセージに添付できませんでした。」とエラーになってしまいます。 PDFファイル出力は問題無く出来ており、メール自体は作成できるところまでは出来ているのですが、肝心のファイル添付が出来なくて困っております、どなたかお助け願えませんでしょうか。 ※PDFファイルの保存場所は任意に選択⇒ファイル名は顧客名で都度出力される形になってます。 Sub PDF出力メール送信テスト用() Dim fname As String Dim pdfname1 As String Dim pdfname2 As String Dim rtn As Long Dim wsh As Object If MsgBox("PDFをメール送信する場合はＯＫ、送信しない、または間違ってこのボタンをクリックした場合はキャンセルをクリックしてください。", vbOKCancel) = vbCancel Then End End If 'pdfname1は会社名、pdfname2は部署名、両方足して『顧客名.pdf』になるようにしています pdfname1 = Range("a4").Text pdfname2 = Range("a5").Text '保存ファイル名及び保存場所の設定 fname = Application.GetSaveAsFilename("【御請求書】" & pdfname1 & " " & pdfname2 & " 御中", "PDFファイル,*.pdf") 'キャンセルボタン押下時 If fname = "False" Then Exit Sub 'ファイルの存在確認 If Dir(fname) <> "" Then rtn = MsgBox(fname & " が存在します。上書きしますか？", vbOKCancel + vbQuestion, "確認") 'キャンセルボタン押下時 If rtn = vbCancel Then Exit Sub End If '印刷順にシートを並び替え Worksheets("請求書").Move Before:=Worksheets("請求書ひな形") Worksheets("請求書").Select Worksheets("請求書ひな形").Select False Worksheets("請求書ひな形").Activate ' 請求書PDF出力 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fname MsgBox fname & " 出力完了" '元通りにシートを並び替え Worksheets("請求書ひな形").Move Before:=Worksheets("請求書") Worksheets("請求書ひな形").Select Dim sPath As String Dim mailTo As String Dim subject As String Dim preface As String Dim mailBody As String Dim attachPath As String sPath = """C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"" -compose " '送信先アドレスはExcelのx1セルに反映 mailTo = Range("x1").Value subject = "御請求書の送付について" preface = pdfname1 & pdfname2 & " 御中" & vbNewLine & vbNewLine & "いつもお世話になります。" & vbNewLine & "御請求書をお送り致しますのでご確認下さい。" & vbNewLine & vbNewLine & "以上、宜しくお願い致します。" mailBody = preface '添付ファイルのパスはfnameではダメなんでしょうか？ attachPath = fname Shell sPath & "to=" & mailTo & ",subject=" & subject & ",body=" & mailBody & "," & "attachment=" & attachPath End Sub

たとえば17；45を基準として18：00退勤であれば１５分の残業として時給１０００円とすると0.25*1000の２５０円の残業代となるわけですが、VBAの一連のコードのなかで　それを計算したいので、たとえばセルDに退出時刻　そのときの残業代をセルIに返すのを　Cells(i, "I").Value = (Cells(i, "D").Value-17:45)*24*1000　を作ってみましたが　稼働しません

お詳しい方宜しくお願い致します。 一番初めにコードを提供して頂けた方にAmazonギフトコード3,000円提供します。 急ぎでどうしてもエラーがないコードが知りたい為です。 Excelで"全体"と"分析"シート以外のシート(ここでは”A”とB”)を"全体"シートに転記したいです。(添付ファイルはAシートしか載せていません) 以下のコードをマクロで実行すると"全体"シートに集計はちゃんとされていますが、エラーが出ます。 実行時エラー'1004': 'Select' メソッドは失敗しました '_Worksheet'オブジェクト 最初のシートのcellsの行数カウントとシート選択部分が間違えているのが原因のようですが、コードが分からなくて・・・以下、VBAです。 ----------------------------------------------------------- Sub 複数シートのデータを1枚のシートにまとめる_シートオプションあり() '複数シートを１枚 '全体シートがあるか調べる Dim 貼付シート As Worksheet, あり As Boolean For Each 貼付シート In Worksheets If 貼付シート.Name = "全体" Then あり = True Exit For End If Next 貼付シート ' "全体"が存在しなければメッセージを表示して処理を終了 If あり = False Then MsgBox "貼り付けシートがありません。終了します。", vbInformation, "エラー" Exit Sub End If 'シートの内容クリア Worksheets("全体").Select Range("A1").CurrentRegion.Clear '各シートで処理をする Dim 枚数 As Long, シート As Worksheet 枚数 = 0 Dim 除外辞書 As Object, 対象辞書 As Object, 配列 As Variant Dim 除外配列 As Variant, 対象配列 As Variant, 数 As Long Set 除外辞書 = CreateObject("Scripting.Dictionary") Set 対象辞書 = CreateObject("Scripting.Dictionary") '除外配列に、除外対象を代入 配列 = Split("全体,分析", ",") 除外配列 = 配列 For 数 = 0 To UBound(除外配列) 除外辞書.Add 除外配列(数), "除外" Next 数 'シート名が除外辞書になければ、対象辞書に加える For Each シート In Worksheets If Not 除外辞書.Exists(シート.Name) Then 対象辞書.Add シート.Name, "対象" End If Next シート '対象のキーを、配列に入れる 対象配列 = 対象辞書.keys '配列に入れた対象に、順次処理をする For Each シート In Worksheets(対象配列) Call 複数シートのデータを1枚のシートにまとめる(シート, 枚数) Next End Sub Sub 複数シートのデータを1枚のシートにまとめる(シート As Worksheet, 枚数 As Long) '複数シートを１枚 Application.ScreenUpdating = False ' 画面描画を停止 Application.DisplayAlerts = False ' 警告表示を停止 Dim 右下セル As String, セル範囲 As String, 貼り付け先範囲 As Range, 貼り付け先セル As String 'シートが"全体"ではない場合、"全体"にデータを貼り付ける If シート.Name <> "全体" Then 枚数 = 枚数 + 1 'コピーする範囲を取得 シート.Select Dim 最終行 As Long '表の最終行を決定 最終行 = Cells(Rows.Count, Range("G5").Column).End(xlUp).Row セル範囲 = "A5" & ":" & Cells(最終行, Range("P5").Column).Address(False, False) If 枚数 = 1 Then シート.Range(セル範囲).Copy Worksheets("全体").Range("A1").PasteSpecial Paste:=xlPasteAll Worksheets("全体").Range("A1").PasteSpecial Paste:=xlPasteValues Else '表全体の末端を右下セルとして取得 Worksheets("全体").Select Range("A1").CurrentRegion.Select 右下セル = Cells(Selection.Row + Selection.Rows.Count - 1, Range("A1").Column).Address(False, False) 貼り付け先セル = Worksheets("全体").Range(右下セル).Offset(1, 0).Address(False, False) シート.Range(セル範囲).Offset(1, 0).Resize(Range(セル範囲).Rows.Count - 1).Copy Worksheets("全体").Range(貼り付け先セル).PasteSpecial Paste:=xlPasteAll Worksheets("全体").Range(貼り付け先セル).PasteSpecial Paste:=xlPasteValues End If End If Worksheets("全体").Activate Application.DisplayAlerts = True ' 警告表示を再開 Application.ScreenUpdating = True ' 画面描画を再開 End Sub

エクセルファイルにおきまして セルDi　＝退勤時刻としまして 基準退勤時刻を18：00とし、18：00ちょうどに 退勤であれば残業代は0となります 18：45であれば0.25*1000　２５０円が残業代として 加算となります 時給を１０００円として 残業または早退のときの 加算または減算金額を計算したいのですが iが1から31となります VBAで計算する場合は どのようになるでしょうか すみません 宜しくお願い致します win10 office365

添付画像参照・・ ＰＣ本体の中で表示される「デバイスの仕様」ですが，なぜストレージは表示されないのでしょうか？ プロセッサーやメモリ等は記載されているのに・・？ 「仕様」なら本来記載されるべきではないでしょうか？ 暗黙のルールとかがあるのでしょうか？ それともＰＣメーカーによるのでしょうか？ 私これまで，２社のＰＣを使ってきましたが２社ともＰＣ本体の仕様では表示が無かったです。 実際の確認は，Ｃ：ドライブできますが・・ 不記載がどうにも，ふに落ちないのですが？ お詳しい方教えて下さい。

LKMでMQTT通信の機能を実装し、MQTTブローカとやりとりすることは可能でしょうか。 また、実装可能である場合、どのような機能を実装すればよいのでしょうか。

お詳しい方宜しくお願い致します。 Excelで"全体"シート以外のシート(ここでは”A”とB”)を"全体"シートに転記したいです。 以下のコードをマクロで実行すると"全体"シートに集計はちゃんとされていますが、エラーが出ます。 実行時エラー'1004': 'Select' メソッドは失敗しました '_Worksheet'オブジェクト デバッグをするとシート.Selectの部分が間違えていると表記されます。 どのようにコードを変えればエラーが出なくなるでしょうか？ -------------------------------------------------------------------- Sub 複数シートのデータを1枚のシートにまとめる_シートオプションあり() '複数シートを１枚 '全体シートがあるか調べる Dim 貼付シート As Worksheet, あり As Boolean For Each 貼付シート In Worksheets If 貼付シート.Name = "全体" Then あり = True Exit For End If Next 貼付シート ' "全体"が存在しなければメッセージを表示して処理を終了 If あり = False Then MsgBox "貼り付けシートがありません。終了します。", vbInformation, "エラー" Exit Sub End If 'シートの内容クリア Worksheets("全体").Select Range("A1").CurrentRegion.Clear '各シートで処理をする Dim 枚数 as Long, シート As Worksheet 枚数 = 0 Dim 除外辞書 As Object, 対象辞書 As Object, 配列 As Variant Dim 除外配列 As Variant, 対象配列 As Variant, 数 As long Set 除外辞書 = CreateObject("Scripting.Dictionary") Set 対象辞書 = CreateObject("Scripting.Dictionary") '除外配列に、除外対象を代入 配列 = Split("(全体, 分析)のシートを、除いて実行", ",") 除外配列 = 配列 For 数 = 0 To UBound(除外配列) 除外辞書.Add 除外配列( 数 ), "除外" Next 数 'シート名が除外辞書になければ、対象辞書に加える For Each シート In Worksheets If Not 除外辞書.Exists(シート.Name) Then 対象辞書.Add シート.Name, "対象" End If Next シート '対象のキーを、配列に入れる 対象配列 = 対象辞書.keys '配列に入れた対象に、順次処理をする For Each シート In Worksheets(対象配列) Call 複数シートのデータを1枚のシートにまとめる(シート,枚数) Next End Sub Sub 複数シートのデータを1枚のシートにまとめる(シート As Worksheet, 枚数 As Long) '複数シートを１枚 Application.ScreenUpdating = False ' 画面描画を停止 Application.DisplayAlerts = False ' 警告表示を停止 Dim 右下セル As String, セル範囲 As String, 貼り付け先範囲 as Range, 貼り付け先セル As String 'シートが"全体"ではない場合、"全体"にデータを貼り付ける If シート.Name <> "全体" Then 枚数 = 枚数 + 1 'コピーする範囲を取得 シート.Select Dim 最終行 As Long '表の最終行を決定 最終行 = Cells(Rows.Count, Range("G5").Column).End(xlUp).Row セル範囲 = "A5" & ":" & Cells(最終行, Range("P5").Column).Address(False, False) If 枚数 = 1 Then シート.Range(セル範囲).Copy Worksheets("全体").Range("A1").PasteSpecial Paste:=xlPasteAll Worksheets("全体").Range("A1").PasteSpecial Paste:=xlPasteValues Else '表全体の末端を右下セルとして取得 Worksheets("全体").Select Range("A1").CurrentRegion.Select 右下セル = Cells(Selection.Row + Selection.Rows.Count - 1, Range("A1").Column).Address(False, False) 貼り付け先セル = Worksheets("全体").Range(右下セル).Offset(1, 0).Address(False, False) シート.Range(セル範囲).Offset(1, 0).Resize(Range(セル範囲).Rows.Count - 1).Copy Worksheets("全体").Range(貼り付け先セル).PasteSpecial Paste:=xlPasteAll Worksheets("全体").Range(貼り付け先セル).PasteSpecial Paste:=xlPasteValues End If End If Worksheets("全体").activate Application.DisplayAlerts = true ' 警告表示を再開 Application.ScreenUpdating = True ' 画面描画を再開 End sub

　１．OBS600を同社のＷＥＢ情報に従い初期化しましたが、Standard Boot で下のようなエラーが表示されてログインの画面が表示されません。対処方法ご教授願います。 　初期化は次の順序で行いました。 　　①PFTPで別ＰＣに保存したイメージ読込。 　　②起動したSSD/LINUX上で、Debian6のイメージ書き込み。 　　③[INIT]を押して起動したDebian6上で、Debian7イメージ書き込み。 (Re)start USB... scanning bus for storage devices... 1 Storage Device(s) found Loading ... ** Unable to read "/uImage.initrd-cfboot" from usb 0:1 ** ** Unable to read "/uImage" from usb 0:1 ** stopping USB.. Bootargs: ramdisk_size=8192 root=LABEL=/ rootdelay=15 console=ttyS0,115200 Wrong Image Format for bootm command ERROR: can't get kernel image! => ２．「INIT」を押して起動すると、正常に起動して初期パスワードでログインできます。 Debian GNU/Linux 7 obs600 ttyS0 obs600 login: root Password: Linux obs600 3.10.25 #1 Thu Feb 13 11:57:26 JST 2014 ppc

以前QRcode.jsで出力したQRコードを画像で取得する方法を教えてもらいましたが・・https://okwave.jp/qa/q100 今回は下記のようなnode-qrcodeを使った場合どうすれば出来るかお教えください。 <!DOCTYPE html> <html lang="ja"> <head> <meta charset="UTF-8" /> <script src="https://cdn.jsdelivr.net/npm/qrcode@1.4.4/build/qrcode.min.js"></script> <script> document.addEventListener("DOMContentLoaded", () => { let info = "ひらがなQRサンプル" ; const options = { width: 128, height: 128, color: { dark: "#000000", // QRコードの自体 light: "#ffffff", // QRコードの背景 }, }; QRCode.toDataURL(info, options) .then((url) => { document.getElementById("qrcode").src = url; }) .catch((err) => { console.error(err); }); }); </script> </head> <body> <img id="qrcode" alt="QRコード" /> </body> </html> 前回のように 「QRコードを生成しているスクリプトの後ろに var canv = document.getElementsByTagName("canvas"); var image = canv[0].toDataURL("image/jpeg", 0.75 ); と書き足せば image 変数の中にJPEGデータが生成されます。」 では駄目でした。 よろしくお願いいたします。

お世話になります。 array_filter() 関数の使い方を練習していて、ネットからダウンロードしたJSON形式のアメリカ映画の情報を使った簡単なコードを書いてみました。この中から特定の情報、下に添付した例では、"acttor_1" というキーの値が 'Sean Connery' という俳優に関する情報を取得することができるのですが、添付のスクリーンショットにあるように、'actor_1' というキーが未定義であるとのエラーメッセージが出ます。 スクリプトの下にありますように、このデータの中にはちゃんと 'actor_1' というキーが存在しています。　このようなエラーメッセージが出るのはなぜでしょうか？ 詳しい方にご説明いただけたら有難く思います。 どうぞよろしくお願いいたします。 「自分のスクリプト」 <?php $json = file_get_contents('./film_locations.json'); $data = json_decode($json, true); $search = 'Sean Connery'; $filtered = array_filter($data, function($item) use ($search) { return $item['actor_1'] == $search; // return (stripos($item['actor_1'], $search) !== false); } ); echo "<pre>"; print_r($filtered); echo "</pre>"; 「JSON形式からPHPの連想配列に変換したものの最初の２例」 Array ( [0] => Array ( [title] => Experiment in Terror [release_year] => 1962 [locations] => The Sea Captain's Chest (Fisherman's Wharf) [production_company] => Columbia Pictures Corporation [distributor] => Columbia Pictures [director] => Blake Edwards [writer] => The Gordons [actor_1] => Glenn Ford [actor_2] => Lee Remick [actor_3] => Stefanie Powers [:@computed_region_6qbp_sg9q] => 99 [:@computed_region_ajp5_b2md] => 23 [:@computed_region_26cr_cadq] => 3 ) [1] => Array ( [title] => Experiment in Terror [release_year] => 1962 [locations] => 100 St. Germain Avenue [production_company] => Columbia Pictures Corporation [distributor] => Columbia Pictures [director] => Blake Edwards [writer] => The Gordons [actor_1] => Glenn Ford [actor_2] => Lee Remick [actor_3] => Stefanie Powers [:@computed_region_6qbp_sg9q] => 47 [:@computed_region_ajp5_b2md] => 38 [:@computed_region_26cr_cadq] => 8 ) 以上です。

gitbucketの実行環境を、Windows上でのJava実行（gitbucket.war起動）から、Dockerコンテナ内での実行に移行しようとしています。これまでのgitbucket設定・環境・ユーザーの入ったdatabaseを新環境に移行したいのですが、旧環境からexportしたSQLファイルを新環境にimportすると"ACTIVITY"テーブルが無いと怒られます。 新しいgitbucketではACTIVITYテーブルは存在しないのでしょうか？ 旧gitbucket環境：バージョン4.31.2（H2） Win+Java 新gitbucket環境：バージョン4.38.5（mysql）WSL2+Docker 試したこと。 ◯旧gitbucketでexportするときに、ACTIVITYを外してSQLをエクスポートすると、新環境でエラー無くimportできました。もちろん、ACTIVITYに関する履歴は新gitbucketの管理画面には表示されませんでした。 ◯新gitbucket環境において、旧環境から移行せずに、適当なレポジトリを作って適当にファイルをpushして履歴が表示されるか（ACTIVITYテーブルが生成されるか）を確認してみました。gitbucketの管理画面では履歴が表示されますが、System AdministrationのData export/importやDatabase Viewerを開いてみても、ACTIVITYテーブルは存在しませんでした。では、push履歴はどこに保存されているのだろう？ ACTIVITYテーブルの履歴は新gitbucketに移行できなくても大して問題はないのですが、移行できるならしたいし、gitbucketのバージョンアップ（4.31.2→4.38.5）の間にACTIVITYテーブルが廃止された（あるいはexportできなくなった）のであればそれはそれで諦めもつきます。 ご存じの方いらっしゃいましたら、ご教示下さい。

パソコンでネットサーフィンをしていると「Malicious Site: Malicious Domain Request 22の攻撃を遮断しました。」との警告がノートンから時々出ます。 何かをダウンロードした覚えはありません。 また、警告の出た同じサイトでもAndroidではなにも表示されません。(ノートン稼働&braveブラウザ) そこでご質問なのですが、 ・この警告はウイルスではなく、危険やリンクや広告バナー等に反応することもあるのでしょうか。 一応両方ともフルスキャンして問題はなかったのですが、原因が気になってご質問させていただきました。 どうかよろしくお願い致します。

illustratorで選択したオブジェクトのレイヤーに移動する方法が知りたいです、端末はmacです。 photoshopなら手のひらツールとかで 表示されているオブジェクトをダブルクリックしたら そのレイヤーに自動で移動するあの機能のことです。 よろしくお願いします、。

エクセル・vbaに不慣れなためわかりづらかったら申し訳ありません。 コンマ区切りの数字をsplit関数で分割して指定セルに表示したいと考えており、以前質問し回答をいただいた内容でやりたいことが出来るようになりました。 ただし、若干出力場所等の変更を行いたいのですが、変更することが出来ません。 以前はA～C列にあるものをE～H列・J～M列・O～R列に表示する。 その際、A～C列にあるコンマ区切りの数字は3つのものと４つのものがあります。画像の上段部分をご確認ください。 その際のマクロは下記のとおりです。 Sub Test() Dim i As Long, j As Long, k As Long Dim tmp As Variant For i = 1 To 3 For j = 3 To 11 tmp = Split(Cells(j, i).Value, ",") For k = 0 To UBound(tmp) If k < 4 Then Cells(j, i).Offset(0, i * 4 + k).Value = tmp(k) End If Next Next Next End Sub 変更したいのは、AC８～AE16にコンマ区切りの数字があります。 AC列にある数字はAI8～AL16にAD列にある数字はAS8～AV16に AE列にある数字はBC8～BF16に表示したいと考えています。 コンマ区切りの数字は3つのものと４つのものがあります。 （画像の下段部分をご確認ください。） 上記のマクロでは下記の部分を変更する必要なのかと考えていますが、変更方法がわかりません。 お分かりの方教えていただけたら幸いです。 どうぞよろしくお願いいたします。 For k = 0 To UBound(tmp) If k < 4 Then Cells(j, i).Offset(0, i * 4 + k).Value = tmp(k)

LinuxのLKM(Loadable Kernel Module)でパケットの送受信機能の実装を検討しています。 こういった機能は実現可能でしょうか。

質問アプリ知らないかな

エクセルに不慣れなため教えていただけたら幸いです。 A３～A11・B3～B11・C3～C11列にコンマ区切りの数字があります。 列によってはコンマで区切られた数字が3つのものと4つのものが混在しています。 split関数でコンマ区切りの数字を分割してE～Ｈ列・J～M列・O～R列に表示したいと考えています。 先ほど別の質問で下記のマクロを教えていただいたのですが、 その際は、A１～A9にあるものをD～G列に表示するというものでした。 よくよく考えると、A列のみではなく、B・C列と複数の列を コンマ区切りしたいと考えています。 このような場合は、どうしたらよいでしょうか。 vba不慣れなためわかりづらかったら申し訳ありません。 お分かりになられるかたがいらっしゃいましたら教えていただけますでしょうか。 よろしくお願いいたします。 Option Explicit ' Sub Macro1() 　　Dim Rout As Long 　　Dim Colu As Integer 　　Dim Expression As Variant ' 　　For Rout = 1 To Cells(Rows.Count, "A").End(xlUp).Row 　　　　Expression = Cells(Rout, "A") 　　　　Expression = Split(Expression, ",") ' 　　　　For Colu = 0 To UBound(Expression) 　　　　　　Cells(Rout, Colu + 4) = Expression(Colu) 　　Next Colu, Rout End Sub