タグ付けされた質問 「vba」

a docvariableがYESまたはに設定されているかどうかを確認する必要がある単純なIFステートメントがありますNO。Y / Nであるかどうかに関係なく、ドキュメントには"Some text here"partとsecondが含まれdocvariableます。本当の状態に到達することはないようです。 これらはVBのdocvariablesであり、ドキュメントに表示して値を確認しました。常にYESまたはのいずれかに設定されますNO。私も試してみましたが1、0ちょうどケース。運がありません。 誰でも私の構文にエラーを見たり、この問題を引き起こしている可能性のある何かを考えたりできますか？下の写真。誰もそれを見ることができないならば、私はそれをタイプしてうれしいです。

microsoft-word  vba  microsoft-word-2010  field-codes 

別のワークブック（wb2）のレコードを使用してワークブック（wb1）を更新できるかどうかを知りたい。 シナリオ： wb2は、別の支社から送られてきたワークブックです。すべてのインベントリが含まれています。 wb1は、本社のワークブックです。これには、本社支店のすべての在庫が含まれている必要があります。 私の問題は、wb1内に他のブランチの既存のレコードが既にあるということです。マクロまたはvbaを使用してwb2内のコンテンツを自動的にコピーし、既存のものを複製せずにwb1に貼り付けることができるかどうかを知りたいのですが。私はもう試した Dim wb As Workbook Set wb = Workbooks.Open("C:\myworkbook.xls") Dim x As Variant x = wb.Worksheets("Sheet1").Range("MyRange").Value thisworkbook.sheets("wb1").range("MyRange").value = x レコードが複製され、更新されていないため、スタックしています。そこで、wb1の現在のレコードを手動で削除してから、更新されたレコードをwb2に貼り付けます。手動でも。

microsoft-excel  vba 

だから私は毎日多くのレポートを出す会社で働いています。情報をExcelに入れ、それをWordに「差し込み印刷」させることで、プロセスを高速化しました。 ここに私の問題があります... これらのすべてのレポートには、特定の説明に関連付ける必要がある30〜60枚の写真があります。現在、プレースホルダーがあり、右クリックして、すべての画像をそのスポットの適切な画像に置き換える必要があります。 Excelシートに「IMG_2222.jpg」または「C：/images/IMG_2222.jpg」と書かれたものを入れて、それをWordにインポートすると、テキストが適切な画像に置き換えられるようになりたいです。これを行うことができれば、文字通り何時間もの作業を節約できます。 いくつかのコードを見つけました（テキスト内のファイルパスを使用して画像を自動的に挿入します）。それはまったく正しくありません。 「差し込み印刷」を実行すると、マクロを実行できません。 何をすべきかアイデアはありますか？

vba  microsoft-word-2010 

Outlook 2013の[ファイル]> [アカウント設定]> [RSSフィード]でRSSフィードを削除しました ただし、RSSフィードはOutlook 2013の左側で引き続き使用できます。変更[RSSフィードの削除]を有効にするにはOutlook 2013を閉じて再度開く必要があると思いましたが、何も起こりません。それで、何が起こっているのでしょうか？

microsoft-outlook  vba  rss  microsoft-outlook-2013 

この質問にはすでに答えがあります： Microsoft Excel 2007のセルに（jpg）画像を挿入する 1つの答え 「外部画像をExcelに読み込むには」の手順に従います。 しかし、関数を挿入するとエラーが表示されます： このエラーの原因は何ですか？

microsoft-excel  worksheet-function  vba 

Excelの画像変更機能を表示するボタンを作成したいと思います。ユーザーが写真の上にあるボタンをクリックして、必要に応じて写真を変更できるようにします。 このマクロが機能しない理由について、誰かが私に洞察を与えることができますか？ Sub ChangePicture() ActiveSheet.Shapes.Range(Array("PIC_RENTCOMP1A")).Select CommandBars.ExecuteMso ("PictureChange") End Sub 右クリック>画像の変更>ファイルから...と同じ機能を使用したい 前もって感謝します。

microsoft-excel  vba 

LinuxマシンでWIN XPからコマンドを実行し、出力コマンドをout.txtファイル（C：\の下）にリダイレクトするために、次のVBスクリプトを作成しました。 コマンドウィンドウからの出力がout.txtファイルに書き込まれない理由がわかりません。 行の何が問題なの Sh.Run "cmd /k & CMD >> ""C:\out.txt""" , 1, True 私の完全なVBスクリプト： 'TARGET_HOST - Linux machine Const TARGET_HOST = "18.20.183.99" const PATH = "cat /etc/hosts" const LOGIN = "root" const PASS = " dingdong " Const PLINKPATH="""C:\SPUTNIK\plink.exe""" Set Sh = CreateObject("WScript.Shell") CMD = " echo y | …

linux  windows-xp  vba  vbscript 

ユーザーがSQLを介して別のExcelブックを更新するために使用するExcel（UserForm）のVBAアプリケーションがあります。2つのファイルは、MS Sharepointフォルダーに並んでいます。ユーザーには2種類あります。最初のグループは、Citrixを使用してWindows 7（シンクライアント）にリモートでログインします。2番目のグループにはノートブックがあり、Citrixを介してまったくログインしません。 Citrixユーザーは問題なく、すべてがローカルとリモートの両方で意図したとおりに機能します（Sharepointリボンの[Eplorerで開く]オプションを常に使用する必要がありますが、それでも構いません）。 ノートブックユーザーの場合、VBAがリンクされたファイルを見つけられないため、Sharepoint UserFormを使用しようとすると（ローカルでは正常に動作する）ファイルパスに奇妙な問題が発生し、エラーが発生します。 C:\Users\Username\Documents\https:\sharepoint-domain.com\Database.xls Citrixでの作業パスは次のようになります。 \\sharepoint-domain.com@SSL\DavWWWRoot\Database.xls 両方のユーザーグループがこれを利用できるようにする方法の手がかりはありますか？

microsoft-excel  vba  sql  sharepoint  citrix 

VBAを使用して定義されたコードビハインドイベントプロシージャを持つ多くのアクセスファイルがあります。このコードを検索して、多数の文字列を探します。 これを実現するには、Microsoft Visual Basic for ApplicationsでAccess Classオブジェクトを選択し、右クリックして[ファイルのエクスポート...]を選択し、実行しfindstrますが、一度に1つのクラスオブジェクトしかエクスポートできません（非常に時間がかかります） 。 複数のアクセスクラスオブジェクトを一度にエクスポートする方法、またはスクリプトを作成する方法はありますか？

vba  microsoft-access  export 

範囲からコピーし、inputboxで選択した宛先範囲にのみ値を貼り付けます。それはほとんど動作しますが、宛先範囲の古い形式は失われます[3番目と4番目の行は、以下の図の添付リンクの1番目の行と異なります]。 私が欲しいのは、コピーされた範囲からデータを貼り付けた後、古い形式が失われないことです。何か問題でもありますか？ 私はxlPasteValuesを使用し、ここにコードがあります： Sub Ttdn_kc_154() Dim targetRange As Range Sheets("ps").Select If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False End If Sheets("httk").Select If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False End If ActiveSheet.Range("httk_kcKQKD_filter").AutoFilter Field:=1, Criteria1:="1" ActiveSheet.Range("httk_kcKQKD_filter").AutoFilter Field:=12, Criteria1:="<>0" If ActiveSheet.Range("httk_lockc1542ps").Value > 0 Then Range("httk_kcKQKD_datakc").Copy Set targetRange = Application.InputBox(prompt:="Please input or select a range", Type:=8) targetRange.PasteSpecial …

microsoft-excel  microsoft-excel-2010  vba  copy-paste  format 

ActiveXのチェックボックスが約150個あるExcelブックがあります。これらすべてのActive Xコントロールは、ブックを開くときに長い読み込み時間（コンピューターで約20秒）につながります。（フォームコントロールに変更せずに）ブックの読み込み時間を短縮する方法はありますか？

vba  microsoft-excel-2016  activex 

列Pをループし、数値「1」を持つセルがあるかどうかを確認し、同時に列Nをループして、同じ行/列にも数値「1」があるかどうかを確認します。列Nに「1」がなく、同時に列Pに数字「1」がある場合、エラーメッセージが表示されます。 ここに私が始めたものがありますが、それほどうまく機能していないようです。 For Each a In Range("p6:p40") If a.Value = "1" Then For Each c In Range("n6:n40") If c.Value = "" Then msgbox("check again") Else msgbox("check again") End If Next End If Next

microsoft-excel-2007  vba 

Intersectは機能しません。 範囲としてDim NTit範囲としてDim NInf範囲としてDim NDat ワークシートセットとしてWSを暗くするWS = ActiveSheet Set NTit = WS.Range("$A$1:$J$1") Set NInf = WS.Range("$B$3:$F$3") Set NDat = WS.Range("$A$5:$K$11") NTit.Interior.Color = RGB(255, 0, 0) If Not Intersect(Target, NTit, NInf, NDat) Is Nothing Then

microsoft-excel  vba 

これは私の日常のタスクで、画像1に示すように生データを取得し、データを並べ替える必要があります。通常、私が調べなければならないデータサンプルは、約2000行のアイテムです。 これを可能な限り合理化して、プロセスをステップに分解したいと思います。 列E（「CE名」）でデータを並べ替え、 列A（製品シリアル）および列E（「CE名」）の複製を条件付きでフォーマットし、 G列（「原因コード」）で「L101」に等しくない値を探します（視覚的な目的で強調表示します）。 （困難なステップ）列E（「CE名」）の値が同じで、列G（「原因コード」）の値が「L101」と等しくない場合、それらの値を分離します。 注：これにより、2つのサンプルデータセットが作成されます。 データサンプル1：列G（「原因コード」）に「L101」値を含むセットまたは単一行になります。 データサンプル2：列G（「原因コード」）に「L101」値を含まないセットまたは単一行になります。 EX：1画像1の行4および5、「C-375204」には、L101と等しくない2列G（「原因コード」）値があります。これが「データサンプル2」になります。 EX：2イメージ1の行8および9、「C-375306」には「L101」および「L208」の列G（「原因コード」）値があります。「L101」値が存在するため、「データサンプル」になります。 1 "。 EX：3イメージ1の行12および13、「C-376157」には2列G（「原因コード」）値「L101」があります。これは「データサンプル1」になります。 すべてのデータが並べ替えられたら、コンマ（ "、"）で区切られた列E（ "CE名"）の値に基づいて、列B（ "Symp"）の値を連結します。 例：画像1の行4および5、「C-375204」は列B（「Symp」）が画像3の行24の画像として「LM01、LM01」として表示されます。 余分なデータを削除して、画像3に示す最終製品を終了します。 画像1：生データ 画像2：ペア 画像3：最終データ

microsoft-excel  worksheet-function  vba  microsoft-excel-2013  microsoft-excel-2016 

Excel 2016を使用しています。小さなスプレッドシートを使用していますが、表示上の問題がいくつかあります。 シート上のすべてのセルにコンテンツや数式が含まれる範囲を再計算すると、UDFを呼び出す2つの列で、計算が完了した後に呼び出し元のセルが視覚的に更新されません。 UDFコードは実行されますが、関数の戻り値（1つはText、もう1つはVariant）は表示されません。前の値はセルに表示されたままです。これらの列のいずれかに移動し、Enterキーを押してセルに計算を「再入力」すると、両方の列が視覚的に期待値に更新されます。 UDF呼び出しを含む他の列では、この問題は発生しません。

-1 microsoft-excel  vba  microsoft-excel-2016